R/nwea.R

In kippchicago/silounloadr: Functions to convey and prep data from KIPP Chicago's Silo data warehouse to an R session.

#' Collect table from NWEA
#'
#' @param table_name name of a table from NWEA db
#'
#' @return a data.frame
#' @export
#'

get_nwea <- function(table_name){

  #check if sil_dbname_alumni_mirror exists; if not create it

  if (!exists("silo_dbname_nwea")) connect_to_db("NWEA")
  if (!exists("silo_dbname_nwea")) {
    connect_to_db("NWEA")
  } else {
    if (!DBI::dbIsValid(silo_dbname_nwea)) {
      connect_to_db("NWEA")
    }
  }

  out <- dplyr::tbl(silo_dbname_nwea, dplyr::sql(sprintf('SELECT * FROM %s', table_name)))

  out<-dplyr::collect(out)

  #names(out) <- tolower(names(out))

  out

}