seq_along nrow data reversed

EcologyR · Jan 11, 2024 · a4ca11d · a4ca11d
1 parent c85b8a6
commit a4ca11d
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/certificate_attendance.R b/R/certificate_attendance.R
@@ -168,7 +168,7 @@ create_certificate_attendance <- function(
 
   data <- as.data.frame(data) ## to exploit drop = TRUE when selecting cols below
 
-  for (i in seq_along(nrow(data))) {
+  for (i in 1:nrow(data)) {
     out.name <- filename
     out.name <- paste0(out.name, "_", data[i, name.column])
     output_file <- paste0(out.name, '.pdf')

diff --git a/R/certificate_participation.R b/R/certificate_participation.R
@@ -184,7 +184,7 @@ create_certificate_participation <- function(
 
   data <- as.data.frame(data) ## to exploit drop = TRUE when selecting cols below
 
-  for (i in seq_along(nrow(data))) {
+  for (i in 1:nrow(data)) {
     out.name <- filename
     out.name <- paste0(out.name, "_", data[i, name.column], "_",
                        gsub("/","-", data[i, date.column]))

diff --git a/R/herbarium.R b/R/herbarium.R
@@ -249,7 +249,7 @@ 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 seq_along(nrow(data))) {
+  for (i in 1:nrow(data)) {
     data[is.na(data[,i]), i] <- "~"
   }