tests/testthat/_problems/test-06_conversions_iglu-84.R

In aidR: Reading and Standardizing Automated Insulin Delivery Data

# Extracted from test-06_conversions_iglu.R:84

# setup ------------------------------------------------------------------------
library(testthat)
test_env <- simulate_test_env(package = "aidR", path = "..")
attach(test_env, warn.conflicts = FALSE)

# test -------------------------------------------------------------------------
path_1 <- system.file("extdata", "tidepool_example.xlsx", package = "aidR")
path_2 <- system.file("extdata", "carelink_example.csv", package = "aidR")
data <- merge_all(list("1" = parse_data(id = "1", paths = path_1),
                         "2" = parse_data(id = "2", paths = path_2)))
converted <- get_iglu_format(data)
expect_equal(names(converted), c("id", "time", "gl"))
expect_equal(nrow(converted), nrow(data$cgm))
expect_equal(sort(unique(as.character(converted$id))), c("1", "2"))
for (id in c("1", "2")){
    cgm <- data$cgm[as.character(data$cgm$id) == id, , drop = FALSE]
    cgm <- cgm[order(cgm$timestamp), , drop = FALSE]
    subset <- converted[as.character(converted$id) == id, , drop = FALSE]

    expect_equal(nrow(subset), nrow(cgm), info = id)
    expect_false(is.unsorted(subset$time))
    expect_equal(as.numeric(subset$time), as.numeric(cgm$timestamp), info = id)
    expect_equal(subset$gl, as.numeric(cgm$value), info = id)
  }