R/ui.R

In rogiersbart/RMT3DMS: Pre- and post-processing of MT3DMS & MT3D-USGS files

# Console UI ----

# use rui functions

# Theme, scales and template for ggplot2 ----

ui_plot <- function(p, type = "default", class = "unknown") {
  if (getOption("RMT3DMS.theme") == "ggplot2") return(p)
  if (getOption("RMT3DMS.theme") == "RMODFLOW") {
    p <- p + ggplot2::labs(
      subtitle = paste0('RMT3DMS "', type, '" plot for "', class, '" object'),
      caption = "We strongly recommend tweaking this plot to your specific needs."
    )
    return(p)
  }
  rui::alert('Option {.arg RMT3DMS.theme} should be {.val "RMODFLOW"} or {.val "ggplot2"}.')
  rui::stop("Issue with RMT3DMS options.")
}
ui_theme <- function(...) {
  if (getOption("RMT3DMS.theme") == "RMODFLOW") {
    return(ggplot2::theme_minimal(
      base_size = 13,
      base_line_size = .8,
      base_rect_size = .8
    ) +
      ggplot2::theme(...))
  }
  if (getOption("RMT3DMS.theme") == "ggplot2") {
    return(ggplot2::theme(...))
  }
  rui::alert('Option {.arg RMT3DMS.theme} should be {.val "RMODFLOW"} or {.val "ggplot2"}.')
  rui::stop("Issue with RMT3DMS options.")
}
ui_fill_c <- function(...) {
  if (getOption("RMT3DMS.theme") == "ggplot2") return(NULL)
  if (getOption("RMT3DMS.theme") == "RMODFLOW") {
    return(spectralscale::fill_c(...))
  }
  rui::alert('Option {.arg RMT3DMS.theme} should be {.val "RMODFLOW"} or {.val "ggplot2"}.')
  rui::stop("Issue with RMT3DMS options.")
}
ui_fill_d <- function(...) {
  if (getOption("RMT3DMS.theme") == "ggplot2") return(NULL)
  if (getOption("RMT3DMS.theme") == "RMODFLOW") {
    return(spectralscale::fill_d(...))
  }
  rui::alert('Option {.arg RMT3DMS.theme} should be {.val "RMODFLOW"} or {.val "ggplot2"}.')
  rui::stop("Issue with RMT3DMS options.")
}
ui_colour_c <- function(...) {
  if (getOption("RMT3DMS.theme") == "ggplot2") return(NULL)
  if (getOption("RMT3DMS.theme") == "RMODFLOW") {
    return(spectralscale::colour_c(...))
  }
  rui::alert('Option {.arg RMT3DMS.theme} should be {.val "RMODFLOW"} or {.val "ggplot2"}.')
  rui::stop("Issue with RMT3DMS options.")
}
ui_colour_d <- function(...) {
  if (getOption("RMT3DMS.theme") == "ggplot2") return(NULL)
  if (getOption("RMT3DMS.theme") == "RMODFLOW") {
    return(spectralscale::colour_d(...))
  }
  rui::alert('Option {.arg RMT3DMS.theme} should be {.val "RMODFLOW"} or {.val "ggplot2"}.')
  rui::stop("Issue with RMT3DMS options.")
}