R/hvalir.R

In einarhjorleifsson/mar: dplyr backend to the MRI Oracle database

#' Hvalir
#'
#' @param con
#'
#' @name hvalir_hvalir
#'
#' @return tenging við hvalir_v
#' @export
#'
hvalir_hvalir <- function(con) {
  tbl_mar(mar,'hvalir.hvalir_v') %>%
    dplyr::mutate(veiddur_breidd = to_number(replace(veiddur_breidd,',','.')),
                  veiddur_lengd = to_number(replace(veiddur_lengd,',','.'))) %>%
    dplyr::select_(.dots = colnames(tbl_mar(mar,"hvalir.hvalir_v"))) %>%
    dplyr::mutate(ar = to_char(dags_veidi,'yyyy'),
                  er_fostur = ifelse(substr(radnumer,-1,0)=='F',1,0))
}