tests/testthat/test-convert_individual_bds.R

In stefvanbuuren/minihealth: Mini Dossier for Individual Health Data

context("test-convert_individual_bds")

# testfiles: for interactive use only
#jtf <- file.path(getwd(), "tests", "testthat", "data", paste0("test", 1:21, ".json"))

# testfiles: R CMD CHECK
# jtf <- file.path("data", paste0("test", 1:21, ".json"))

#fn <- jtf[1]
#con <- curl::curl(fn, open = "r")
# txt <- readLines(con)
# d <- jsonlite::fromJSON(txt)
# b <- d$ClientGegevens$Elementen
#
# data("installed.cabinets", package = "jamestest")
# ind <- installed.cabinets[[2]][[1]]
#
# z <- convert_individual_bds(ind)