#' Title
#'
#' Bla, bla, ...
#'
#' @param con XXX
#' @param schema XXX
#'
#' @export
#'
lesa_lengdir <- function(con, schema = "hafvog") {
tbl_xe(con, paste0(schema, ".lengdir")) %>%
dplyr::select(synis_id:kynthroski) %>%
dplyr::mutate(synis_id = if_else(schema == "fiskar", synis_id, -synis_id))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.