Parse lookup_status and timeline created_at to dates.

Closes #657

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: rtweet
 Title: Collecting Twitter Data
-Version: 0.7.0.9012
+Version: 0.7.0.9013
 Authors@R: 
     c(person(given = "Michael W.",
              family = "Kearney",

R/statuses.R

@@ -37,6 +37,10 @@ lookup_tweets <- function(statuses, parse = TRUE, token = NULL,
 
   if (parse) {
     results <- tweets_with_users(results)
+    locale <- Sys.getlocale("LC_TIME")
+    Sys.setlocale("LC_TIME", "C") 
+    results$created_at <- as.POSIXct(results$created_at, format = "%a %b %d %T %z %Y")
+    Sys.setlocale("LC_TIME", locale) 
   }
   results
 }

R/timeline.R

@@ -66,6 +66,10 @@ get_timeline <- function(user = NULL,
   if (parse) {
     rt <- do.call("rbind", rt)
     rt <- as_tbl(rt)
+    locale <- Sys.getlocale("LC_TIME")
+    Sys.setlocale("LC_TIME", "C") 
+    rt$created_at <- as.POSIXct(rt$created_at, format = "%a %b %d %T %z %Y")
+    Sys.setlocale("LC_TIME", locale) 
   } 
 
   rt

tests/testthat/test-statuses.R

@@ -62,3 +62,8 @@ test_that("Check that geo works well,  #648", {
     "930475046530936834", "914607458169081858"))
   expect_true(is.list(lu$geo) && !is.data.frame(lu$geo))
 })
+
+test_that("Check lookup returns appropiate format,  #657", {
+  lu <- lookup_tweets("1488182699202383875")
+  expect_s3_class(lu$created_at, "POSIXct")
+})