change pivot

JohnCoene · Jun 5, 2020 · 3d8d889 · 3d8d889
1 parent 348884e
commit 3d8d889
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -153,13 +153,13 @@ rename_sheets <- function(df){
 #' 
 #' @keywords internal
 pivot <- function(df){
-  tidyr::pivot_longer(
-    df, 
-    tidyselect::contains("/"),
-    names_to = c("date"),
-    values_to = c("cases"),
-    values_ptypes = list(cases = "character")
-  )
+  df %>% 
+    dplyr::select(-lon, -lat) %>% 
+    tidyr::pivot_longer(
+      tidyselect::contains("/"),
+      names_to = c("date"),
+      values_to = c("cases")
+    )
 }
 
 #' Table