R/tr.R

In GiulioGenova/MeteoBrowser: A Shiny App to download the meteorological time series from the Open Data - Province of Bozen

Defines functions tr

Documented in tr

#' Internal function for the shiny app. Translates text into current language
#'
#'@export
#'

tr <- function(key,l,t=translation){
  x<-as.character(t[grep(key,t$key),l])
  return(x)
}