Merge pull request #56 from EcologyR/cran2

First release after examples
EcologyR · Jan 11, 2024 · c85b8a6 · c85b8a6
2 parents 8bc9c88 + 24a671e
commit c85b8a6
Show file tree

Hide file tree

Showing 14 changed files with 7 additions and 518 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 1:nrow(data)) {
+  for (i in seq_along(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 1:nrow(data)) {
+  for (i in seq_along(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 1:ncol(data)) {
+  for (i in seq_along(nrow(data))) {
     data[is.na(data[,i]), i] <- "~"
   }
 

diff --git a/docs/reference/Rplot001.png b/docs/reference/Rplot001.png
diff --git a/docs/reference/exampledata.html b/docs/reference/exampledata.html
diff --git a/docs/reference/make_scatterplot-1.png b/docs/reference/make_scatterplot-1.png
diff --git a/docs/reference/make_scatterplot.html b/docs/reference/make_scatterplot.html