R/powerschool_mirror.R

Defines functions get_ps

Documented in get_ps

#' Collect table from PowerSchool_mirror
#'
#' @param table_name name of a table in alumni mirror
#'
#' @return a data.frame
#' @export
#'

get_ps <- function(table_name){

  #check if sil_dbname_alumni_mirror exists; if not create it


  if (!exists("silo_dbname_ps_mirror")) {
    connect_to_db("PS_mirror")
  } else {
    if (!DBI::dbIsValid(silo_dbname_ps_mirror)) {
      connect_to_db("PS_mirror")
    }
  }

  out <- dplyr::tbl(silo_dbname_ps_mirror, table_name)

  out

}
kippchicago/silounloadr documentation built on Sept. 14, 2020, 6:58 p.m.