R/lesa_kvarnir.R

In fishvice/xe: dplyr backend to the XE Oracle database

#' Title
#'
#' Some text
#'
#' @param con XXX
#' @param schema XXX
#'
#' @export
#'
lesa_kvarnir <- function(con, schema = "hafvog") {

  tbl_xe(con, paste0(schema, ".kvarnir")) %>%
    dplyr::select(synis_id:kynfaeri, lifur, magi, syking = sy) %>%
    dplyr::mutate(synis_id = if_else(schema == "fiskar", synis_id, -synis_id))

}