#' Heimild
#'
#' @name heimild
#'
#' @param con src_oracle tenging við oracle
#'
heimild <- function(con) {
d <- tbl_mar(con, "kvoti.heimild")
return(d)
}
#' Aflaheimild
#'
#' @name afla_heimild
#'
#' @param con src_oracle tenging við oracle
#'
afla_heimild <- function(con) {
d <-
tbl_mar(con, "kvoti.afla_heimild") %>%
dplyr::select(-c(sng:sbt)) %>%
dplyr::mutate(ar = to_number(to_char(i_gildi, "YYYY")),
man = to_number(to_char(i_gildi, "MM")),
timabil = dplyr::if_else(to_number(to_char(i_gildi, "MM")) < 9,
concat(to_number(to_char(i_gildi, "YY")) -1, to_number(to_char(i_gildi, "YY"))),
concat(to_number(to_char(i_gildi, "YY")), to_number(to_char(i_gildi, "YY")) + 1))) %>%
dplyr::left_join(heimild(con), by = c("heimild" = "tegund")) %>%
dplyr::left_join(kvoti_studlar(con) %>% dplyr::select(ftegund, timabil, i_oslaegt), by = c("ftegund", "timabil")) %>%
dplyr::mutate(oslaegt = i_oslaegt * magn)
return(d)
}
#' Úthlutun kvóta
#'
#' @name kvoti_uthlutanir
#'
#' @param con src_oracle tenging við oracle
#' @export
kvoti_uthlutanir <- function(con) {
tbl_mar(con, "kvoti.uthlutanir") %>%
dplyr::select(tilvisun:ath, id:lokid)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.