fixed copy paste error in single sheet read

ecohealthalliance · Jun 18, 2024 · 96ac2fd · 96ac2fd
1 parent 0d7be21
commit 96ac2fd
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 4 deletions.
diff --git a/R/read_googlesheets.R b/R/read_googlesheets.R
@@ -34,7 +34,7 @@ read_googlesheets <-
       sheet_names <- rlang::set_names(sheet_names, sheet_names)
       dat <-
         purrr::map(sheet_names,
-                   \(x){
+                   function(x){
                     df  <- googlesheets4::range_read(
                        ss = ss,
                        sheet = x,
@@ -63,7 +63,7 @@ read_googlesheets <-
 
       if(add_primary_key_field){
         #ss_sheet_rownum
-        row_ids <- paste(ss,x,1:nrow(dat),sep = "_")
+        row_ids <- paste(ss,sheet,1:nrow(dat),sep = "_")
 
         dat <- dat %>%
           dplyr::mutate({{primary_key}} := {{row_ids}})

diff --git a/man/read_googlesheets.Rd b/man/read_googlesheets.Rd