na replacement erased as it is in function [skip ci]

EcologyR · Jan 17, 2024 · e9df86a · e9df86a
1 parent bc40ee6
commit e9df86a
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/R/herbarium.R b/R/herbarium.R
@@ -250,10 +250,6 @@ create_herbarium_label <- function(data = data,
   data <- as.data.frame(data)  ## to exploit drop = TRUE when selecting cols below
   bl.char <- rep("~", times = nrow(data))
 
-  for (i in 1:nrow(data)) {
-    data[is.na(data[,i]), i] <- "~"
-  }
-
   rmarkdown::render(
     input = file.path(folder, "herbarium.Rmd"),
     output_dir = path,