R/fct_switch_band.R

In pobsteta/shinyCNES: An Amazing Shiny App

Defines functions switch_band

Documented in switch_band

#' switch_band
#'
#' @param x 
#'
#' @return
#' @export
#'
switch_band <- function(x) {
  out <- switch(x,
                b = "B11",
                c = "B12",
                paste0("B", x)
  )
}