R/persondata.R

In growthcharts/bdsreader: Read Data from the Basisdataset Jeugdgezondheidszorg

#' Extract person-level information
#'
#' @param x A list containing element `psn`
#' @return A tibble with person-level data
#' @examples
#' fn <- system.file("extdata/bds_v3.0/smocc/Laura_S.json",
#'   package = "jamesdemodata")
#' persondata(read_bds(fn))
#' @export
persondata <- function(x) {
  stopifnot(is.list(x))
  stopifnot("psn" %in% names(x))
  return(x[["psn"]])
}

#' Extract time-level information
#'
#' @param x A list containing element `xyz`
#' @return A tibble with time-level data
#' @examples
#' fn <- system.file("extdata/bds_v3.0/smocc/Laura_S.json",
#'   package = "jamesdemodata")
#' timedata(read_bds(fn))
#' @export
timedata <- function(x) {
  stopifnot(is.list(x))
  stopifnot("xyz" %in% names(x))
  return(x[["xyz"]])
}