Merge pull request #53 from EcologyR/tibble2dataframe_conv

tibble to data frame conversion
EcologyR · Dec 8, 2023 · edb67de · edb67de
2 parents 26d8151 + 6507be4
commit edb67de
Show file tree

Hide file tree

Showing 6 changed files with 7 additions and 1 deletion.
diff --git a/R/badge.R b/R/badge.R
@@ -52,6 +52,7 @@ create_badge <- function(data = NULL,
     stop("Please provide a data.frame or tibble.")
   }
 
+  if(!(all(class(data)=="data.frame"))){data <- as.data.frame(data)}
   if (!inherits(data, "data.frame")) {stop("The 'data' object must be a data frame.")}
 
   if (is.null(path)) {stop("A folder path must be specified.")}

diff --git a/R/certificate_attendance.R b/R/certificate_attendance.R
@@ -79,6 +79,7 @@ create_certificate_attendance <- function(
     stop("A data.frame must be provided.")
   }
 
+  if(!(all(class(data)=="data.frame"))){data <- as.data.frame(data)}
   if (!inherits(data, "data.frame")) {stop("The 'data' object must be a data frame.")}
 
   if (is.null(path)) {stop("A folder path must be specified.")}

diff --git a/R/certificate_participation.R b/R/certificate_participation.R
@@ -88,6 +88,8 @@ create_certificate_participation <- function(
   if (is.null(data)) {
     stop("A data.frame must be provided.")
   }
+
+  if(!(all(class(data)=="data.frame"))){data <- as.data.frame(data)}
   if (!inherits(data, "data.frame")) {stop("The 'data' object must be a data frame.")}
 
   if (is.null(path)) {stop("A folder path must be specified.")}

diff --git a/R/collection_label.R b/R/collection_label.R
@@ -66,6 +66,7 @@ create_collection_label <- function(data = NULL,
     stop("Please provide a data.frame or tibble.")
   }
 
+  if(!(all(class(data)=="data.frame"))){data <- as.data.frame(data)}
   if (!inherits(data, "data.frame")) {stop("The 'data' object must be a data frame.")}
 
   if (is.null(path)) {stop("A folder path must be specified.")}

diff --git a/R/herbarium.R b/R/herbarium.R
@@ -104,7 +104,7 @@ create_herbarium_label <- function(data = data,
   if (is.null(data)) {
     stop("Please provide a data.frame or tibble.")
   }
-
+  if(!(all(class(data)=="data.frame"))){data <- as.data.frame(data)}
   if (!inherits(data, "data.frame")) {stop("The 'data' object must be a data frame.")}
 
   if (is.null(path)) {stop("A folder path must be specified.")}

diff --git a/R/tiny_label.R b/R/tiny_label.R
@@ -58,6 +58,7 @@ create_tinylabel <- function(data = NULL,
     stop("Please provide a data.frame or tibble.")
   }
 
+  if(!(all(class(data)=="data.frame"))){data <- as.data.frame(data)}
   if (!inherits(data, "data.frame")) {stop("The 'data' object must be a data frame.")}
 
   if (is.null(path)) {stop("A folder path must be specified.")}