mucking around with date recognition

jobonaf · Apr 2, 2015 · a1188da · a1188da
1 parent 4417427
commit a1188da
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/global.R b/global.R
@@ -42,13 +42,10 @@ get_data <- function(url,
       read.table(url, sep=',', header=T, stringsAsFactors=T),
       function(x) {
         if(is.factor(x)){
-          try(
-            if(is.Date(as.Date(x))){
-              x <- lubridate::parse_date_time(x, orders=ldo, tz=ltz)
-            }
-          )
+            # insert test whether factor x really is a date
+            x <- lubridate::parse_date_time(x, orders=ldo, tz=ltz)
+            x
         }
-        x
       }))
 }