R/get_internal_data.R

In stefvanbuuren/donorloader: Loads Donor Data from Package or Database

get_internal_data <- function(dnr = NULL, element = NULL) {
  if (is.null(dnr)) {
    return(NULL)
  }
  cmd <- paste0("donorloader:::", dnr)
  if (is.null(element)) {
    return(eval(parse(text = cmd)))
  }
  eval(parse(text = cmd))[[element]]
}