tests/testthat/test-get_data_frame_in_env.R

In xtreamsrl/tsviz: Easy and Interactive Time Series Visualization

test_env <- new.env()

test_that("finds a dataframe", {
  x <- data.frame(
    l = c("a", "b", "c"),
    n = c(1, 2, 3)
  )

  assign("x", x, envir = test_env)

  res <- get_data_frames_in_env(test_env)
  testthat::expect_length(res, 1)

  rm(list = c("x"), envir = test_env)
})


test_that("does not crash on no dataframes", {
  res <- get_data_frames_in_env(test_env)
  testthat::expect_length(res, 0)
})


test_that("finds a tibble", {
  x <- data.frame(
    l = c("a", "b", "c"),
    n = c(1, 2, 3)
  ) %>% dplyr::as_tibble()

  assign("x", x, envir = test_env)

  res <- get_data_frames_in_env(test_env)
  testthat::expect_length(res, 1)

  rm(list = c("x"), envir = test_env)
})

test_that("finds a time series dataframe", {
  x <- data.frame(
    d = c(lubridate::ymd("2018-01-01"), lubridate::ymd("2018-01-02")),
    n = c(1, 2)
  )

  assign("x", x, envir = test_env)

  res <- get_time_series_data_frames_in_env(test_env)
  testthat::expect_length(res, 1)

  rm(list = c("x"), envir = test_env)
})