tests/testthat/test-extra.R

In personalscience/psi-shiny-cgm: Personal Science CGM Analysis Web App

# from project directory, type
# testthat::auto_test("./R", "./tests/testthat")
# Sys.setenv(R_CONFIG_ACTIVE = "localtest")

active_env <- Sys.getenv("R_CONFIG_ACTIVE")
Sys.setenv(R_CONFIG_ACTIVE = "localtest")

conn_args <-  config::get("dataconnection")
  con <- DBI::dbConnect(
    drv = conn_args$driver,
    user = conn_args$user,
    host = conn_args$host,
    port = conn_args$port,
    dbname = conn_args$dbname,
    password = conn_args$password)

glucose_records <- tbl(con,"glucose_records") %>% collect()
notes_records <- tbl(con, "notes_records") %>% collect()

ftf_df0 <- food_times_df_fast(glucose_records, notes_records, prefixLength = 0)

ft_df0 <- food_times_df(prefixLength = 0)

# 2 user_id and
ft_df1 <- food_times_df(prefixLength = 20, foodname = "blueberries")
ftf_df1 <- food_times_df_fast(glucose_records, notes_records, prefixLength = 20, foodname = "blueberries")

mealnames_blu <-
  as_tibble_col(c("MSprague-6/5-blueberries",
                  "RSprague-7/31-blueberries",
                  "RSprague-8/2-blueberries"
                  ), column_name = "meal")


test_that("food_times_df can handle non-existent users", {
  expect_equal(food_times_df(user_id = -1), NULL)
})


test_that("food_times_df holds correct mealnames",{
  expect_equal(ft_df1 %>% distinct(meal), mealnames_blu)
})

test_that("food_times_df_fast holds correct mealnames",{
  expect_equal(ftf_df1 %>% distinct(meal), mealnames_blu)
})


test_that("food_times_df holds correct start time",{
  expect_equal(ft_df1 %>%
                 group_by(meal) %>%
                 arrange(meal,t) %>%
                 ungroup() %>%
                 slice(2) %>% pull(value), 71)
})

test_that("food_times_df holds correct start time: prefixLength = 0 ",{
  expect_equal(ft_df0 %>%
                 group_by(meal) %>%
                 arrange(meal,t) %>%
                 ungroup() %>%
                 slice(2) %>% pull(value), 81)
})

test_that("food_times_df_fast holds correct start time: prefixLength = 0 ",{
  expect_equal(ftf_df0 %>%
                 group_by(meal) %>%
                 arrange(meal,t) %>%
                 ungroup() %>%
                 slice(2) %>% pull(value), 81)
})

test_that("normalize_value() works for prefixLength = 0 ",{
expect_equal(ft_df0 %>% normalize_value() %>% group_by(meal) %>% slice(5) %>% pull(value),
             c(-4,2,-38))
})

test_that("normalize_value() works for prefixLength = 20 ",{
  expect_equal(ft_df1 %>% normalize_value() %>% group_by(meal) %>% slice(5) %>% pull(value),
               c(-17,  -14,   -3))
})


Sys.setenv(R_CONFIG_ACTIVE = active_env )