R/read_from_productie.R

In mvbloois/faiR: Collection Of Farminform Functions

#' Read data from a view
#'
#' Haalt data op uit een view op de bra08 uit de productie database en returnt een tibble met de data
#'
#' @param schema character variable
#' @param view character variable
#'
#' @return tibble
#'
#' @export
read_from_productie <- function(schema = "fiscript",
                      view = "vwPrkGegevens"){
  #usethis::ui_todo("Querying data from: {server}\\{db}\\{schema}.{view}...")
  con <- connect_bra08(db = "productie")
  pointer <- dplyr::tbl(con, dbplyr::in_schema(schema, view))
  return(tibble::as_tibble(pointer))
  #usethis::ui_done("Done querying {schema}.{view}")
}