R/meta_school_type.R

In Ingenuity-Inc/artlookR: Work with artlook data

#' artlookR school_type metadata
#'
#' @return A list with the label names and corresponding levels for elementary, high, middle, and combination schools.
#' @details This may be a bit excessive. It's just setting up the factors for when you need school type as stored in the
#' artlookR schools table.
#'
#' * Because this information is not stored in the artlookR database, you are not required to run the \code{connection.R} script
#' and create a connection object for this script to run.
#' @examples meta_school_type()
#' @export
meta_school_type <- function(...){

  output <- list(label = c("Elementary School", "High School", "Middle School", "Combination"),
                 level = c("elementary_school", "high_school", "middle_school", "combination"))

}