attempt to fix bug with R 3.5.0

codeformuenster · May 26, 2018 · 5c67497 · 5c67497
1 parent 46b007b
commit 5c67497
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/02_cars_to_db.R b/src/02_cars_to_db.R
@@ -13,7 +13,7 @@ process_df <- function(df) {
   # shift header left and remove last column 
   if (!is.na(colnames(df)[26])) {
     colnames(df) <-
-      colnames(df) %>% 
+      c(colnames(df), "NA") %>% 
       tail(-1)
     assert_that(df %>% dplyr::select(26) %>% is.na %>% all)
     df <-
@@ -22,7 +22,7 @@ process_df <- function(df) {
   }
 
   # DATE
-  # identify date from first column lable
+  # identify date from first column label
   date <-
     df %>%
     colnames %>%