Running ‘testthat.R’ [11s/17s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(lifelogr)
  > 
  > test_check("lifelogr")
  1. Error: can create Person object with other info fields (@test_person.R#6) ---
  CCTZ: Unrecognized tzone: "/Europe/Vienna"
  1: expect_is(Person$new(user_info = list(name = "NN", workdays = list("Tues", "Sat"), 
         fav_color = "purple"), start_date = "2017-03-11", end_date = "2017-03-12"), "Person") at testthat/test_person.R:6
  2: klass(object)
  3: paste(class(x), collapse = "/")
  4: Person$new(user_info = list(name = "NN", workdays = list("Tues", "Sat"), fav_color = "purple"), 
         start_date = "2017-03-11", end_date = "2017-03-12")
  5: .subset2(public_bind_env, "initialize")(...)
  6: private$create_util_data(self$start_date, self$end_date)
  7: lubridate::make_datetime(year = lubridate::year(df$date), month = lubridate::month(df$date), 
         day = lubridate::day(df$date), hour = 0L, min = 0L, sec = 0, tz = Sys.timezone())
  8: C_update_dt(.rep_maybe(origin, N), year = .rep_maybe(year, N), month = .rep_maybe(month, 
         N), yday = integer(), mday = .rep_maybe(day, N), wday = integer(), hour = .rep_maybe(hour, 
         N), minute = .rep_maybe(min, N), second = .rep_maybe(sec, N), tz = tz)
  
  2. Error: can load in additional data as dataframe (@test_person.R#22) ---------
  CCTZ: Unrecognized tzone: "/Europe/Vienna"
  1: expect_is(Person$new(addl_data = data.frame(NA), start_date = "2017-03-11", end_date = "2017-03-12"), 
         "Person") at testthat/test_person.R:22
  2: klass(object)
  3: paste(class(x), collapse = "/")
  4: Person$new(addl_data = data.frame(NA), start_date = "2017-03-11", end_date = "2017-03-12")
  5: .subset2(public_bind_env, "initialize")(...)
  6: private$create_util_data(self$start_date, self$end_date)
  7: lubridate::make_datetime(year = lubridate::year(df$date), month = lubridate::month(df$date), 
         day = lubridate::day(df$date), hour = 0L, min = 0L, sec = 0, tz = Sys.timezone())
  8: C_update_dt(.rep_maybe(origin, N), year = .rep_maybe(year, N), month = .rep_maybe(month, 
         N), yday = integer(), mday = .rep_maybe(day, N), wday = integer(), hour = .rep_maybe(hour, 
         N), minute = .rep_maybe(min, N), second = .rep_maybe(sec, N), tz = tz)
  
  3. Error: can load in list of dataframe grouping assignments (@test_person.R#33) 
  CCTZ: Unrecognized tzone: "/Europe/Vienna"
  1: expect_is(Person$new(group_assignments = list(group_months = data.frame(month = c("Jan", 
         "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"), 
         group = c(0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0)), data.frame(NA))), "Person") at testthat/test_person.R:33
  2: klass(object)
  3: paste(class(x), collapse = "/")
  4: Person$new(group_assignments = list(group_months = data.frame(month = c("Jan", "Feb", 
         "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"), group = c(0, 
         0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0)), data.frame(NA)))
  5: .subset2(public_bind_env, "initialize")(...)
  6: private$create_util_data(self$start_date, self$end_date)
  7: lubridate::make_datetime(year = lubridate::year(df$date), month = lubridate::month(df$date), 
         day = lubridate::day(df$date), hour = 0L, min = 0L, sec = 0, tz = Sys.timezone())
  8: C_update_dt(.rep_maybe(origin, N), year = .rep_maybe(year, N), month = .rep_maybe(month, 
         N), yday = integer(), mday = .rep_maybe(day, N), wday = integer(), hour = .rep_maybe(hour, 
         N), minute = .rep_maybe(min, N), second = .rep_maybe(sec, N), tz = tz)
  
  4. Error: no error when creating Person object with no start and end date (@test_person.R#47) 
  CCTZ: Unrecognized tzone: "/Europe/Vienna"
  1: expect_is(Person$new(user_info = list(name = "NN", workdays = list("Tues", "Sat"), 
         fav_color = "purple")), "Person") at testthat/test_person.R:47
  2: klass(object)
  3: paste(class(x), collapse = "/")
  4: Person$new(user_info = list(name = "NN", workdays = list("Tues", "Sat"), fav_color = "purple"))
  5: .subset2(public_bind_env, "initialize")(...)
  6: private$create_util_data(self$start_date, self$end_date)
  7: lubridate::make_datetime(year = lubridate::year(df$date), month = lubridate::month(df$date), 
         day = lubridate::day(df$date), hour = 0L, min = 0L, sec = 0, tz = Sys.timezone())
  8: C_update_dt(.rep_maybe(origin, N), year = .rep_maybe(year, N), month = .rep_maybe(month, 
         N), yday = integer(), mday = .rep_maybe(day, N), wday = integer(), hour = .rep_maybe(hour, 
         N), minute = .rep_maybe(min, N), second = .rep_maybe(sec, N), tz = tz)
  
  5. Error: no error when creating empty Person object (@test_person.R#54) -------
  CCTZ: Unrecognized tzone: "/Europe/Vienna"
  1: expect_is(Person$new(), "Person") at testthat/test_person.R:54
  2: klass(object)
  3: paste(class(x), collapse = "/")
  4: Person$new()
  5: .subset2(public_bind_env, "initialize")(...)
  6: private$create_util_data(self$start_date, self$end_date)
  7: lubridate::make_datetime(year = lubridate::year(df$date), month = lubridate::month(df$date), 
         day = lubridate::day(df$date), hour = 0L, min = 0L, sec = 0, tz = Sys.timezone())
  8: C_update_dt(.rep_maybe(origin, N), year = .rep_maybe(year, N), month = .rep_maybe(month, 
         N), yday = integer(), mday = .rep_maybe(day, N), wday = integer(), hour = .rep_maybe(hour, 
         N), minute = .rep_maybe(min, N), second = .rep_maybe(sec, N), tz = tz)
  
  testthat results ================================================================
  OK: 56 SKIPPED: 0 FAILED: 5
  1. Error: can create Person object with other info fields (@test_person.R#6) 
  2. Error: can load in additional data as dataframe (@test_person.R#22) 
  3. Error: can load in list of dataframe grouping assignments (@test_person.R#33) 
  4. Error: no error when creating Person object with no start and end date (@test_person.R#47) 
  5. Error: no error when creating empty Person object (@test_person.R#54) 
  
  Error: testthat unit tests failed
  Execution halted