#' Internal default values.
#'
#' This is a list with some internal default-values, that will be
#' used as references for the different functions in the package.
#'
#' @name HVL_defaults
#' @keywords internal
HVL_defaults <- list(
tabPanel = list(
selected_tab = "info",
values = list(
info = list(
en = "Infomation",
nn = "Informasjon",
bm = "Informasjon"),
parametric = list(
en = "Parametric example",
nn = "Parametrisk eksempel",
bm = "Parametrisk eksempel"),
lin.reg = list(
en = "Linear regression",
nn = "Lineær regresjon",
bm = "Lineær regresjon"))),
document.title = list(
en = "HVL - under development",
nn = "HVL - under utvikling",
bm = "HVL - under utvikling"),
select_language_intro = list(
en = "TODO: Instructions-en blahbla + select language (?)",
nn = "TODO: Instruksjon-nn blahblah + velg språk (?)",
bm = "TODO: Instruksjon-bm blahblah + velg språk (?)"),
select_language = list(
label = list(
en = "Select language for interface",
nn = "Velg språk for grensesnittet",
bm = "Velg språk for grensesnittet"),
choices = list(
en = "English",
nn = "Norsk (nynorsk)",
bm = "Quasi-dansk (bokmål)"),
selected = "nn"),
quit_label = list(
en = "Quit",
nn = "Avslutt",
bm = "Avslutt"),
insist_quit_label = list(
en = "Yes, I DO want to quit!",
nn = "Ja, eg VIL avslutte!",
bm = "Ja, jeg VIL avslutte!"))
## list(
## en = "",
## nn = "",
## bm = "")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.