R/brad_thyngdir.R

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

#' @title brad_thyngdir
#'
#' @param con Oracle xe connection
#'
#' @export
#'
brad_thyngdir <- function(con) {
  lesa_skraning(con) %>%
    dplyr::filter(maeliadgerd %in% c(20:21)) %>%
    dplyr::select(synis_id,
                  # prey id
                  pid = tegund,
                  # prey count
                  pN = fjoldi,
                  # prey weight
                  pW = heildarthyngd,
                  tegund = ranfiskurteg,
                  nr = kvarnanr) %>%
    dplyr::mutate(synis_id = -synis_id)
}