Pass stringsAsFactors = FALSE correctly

Co-Authored-By: Damiano Oldoni <damiano.oldoni@inbo.be>
frictionlessdata · Sep 19, 2024 · b28af6c · b28af6c
1 parent 63e98f9
commit b28af6c
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/read_resource.R b/R/read_resource.R
@@ -55,7 +55,11 @@ read_resource <- function(package, resource_name, col_select = NULL) {
 
   # Read data from data
   } else if (resource$read_from == "data") {
-    df <- dplyr::bind_rows(resource$data)
+    df <- do.call(
+      function(...) rbind.data.frame(..., stringsAsFactors = FALSE),
+      resource$data
+    )
+    df <- dplyr::as_tibble(df)
 
   # Read data from path(s)
   } else if (resource$read_from == "path" || resource$read_from == "url") {