tests/testthat/test_get_fields.R

In rDataPipeline: Functions to Interact with the 'FAIR Data Pipeline'

# Make sure no new field types have been added to the registry

known_fields <- c("character", "integer", "field", "boolean", "datetime",
                  "numeric", "url")

endpoint <- Sys.getenv("FDP_endpoint")

tables <- get_tables(endpoint = endpoint) %>%
  setdiff(c("users", "groups"))
fields <- lapply(tables, function(x) {
  get_fields(x) %>%
    dplyr::filter(read_only == "FALSE") %>%
    dplyr::select(data_type)}) %>%
  unlist() %>%
  unique()