tr <- function(text){ # translates text into current language
sapply(text,function(s) translation[[s]][[input$language]], USE.NAMES=FALSE)
}
#output$ini <- renderText({ tr("inicio") })
output$sigla <- renderText({ tr("gbq") })
output$titulo <- renderText({ tr("titulo") })
output$saudacao <- renderText({ tr("saudacao") })
output$criarrem <- renderText({ tr("criarrem") })
output$criar <- renderText({ tr("criar") })
output$ncountry <- renderText({ tr("ncountry") })
output$compname <- renderText({ tr("compname") })
output$escsigla <- renderText({ tr("escsigla") })
output$esdisc <- renderText({ tr("esdisc") })
output$conass <- renderText({ tr("conass") })
output$ndiscp <- renderText({ tr("ndiscp") })
output$nassun <- renderText({ tr("nassun") })
output$gbanco <- renderText({ tr("gbanco") })
output$remover <- renderText({ tr("remover") })
output$criardisc <- renderText({ tr("criardisc") })
output$rebanco <- renderText({ tr("rebanco") })
output$gdisc <- renderText({ tr("gdisc") })
output$gassu <- renderText({ tr("gassu") })
output$gdatbanco <- renderText({ tr("gdatbanco") })
output$gdatapp <- renderText({ tr("gdatapp") })
output$gdatb <- renderText({ tr("gdatb") })
output$gdatb2 <- renderText({ tr("gdatb") })
output$pquest <- renderText({ tr("pquest") })
output$utbanco <- renderText({ tr("utbanco") })
output$esbanqu <- renderText({ tr("esbanqu") })
output$esbdados <- renderText({ tr("esbdados") })
output$tquestaoa <- renderText({ tr("tquestaoa") })
output$tquestaon <- renderText({ tr("tquestaon") })
output$tquestaom <- renderText({ tr("tquestaom") })
output$tquestaos <- renderText({ tr("tquestaos") })
output$tquestaoas <- renderText({ tr("tquestaoas")})
output$tquestaoas1 <- renderText({ tr("tquestaoas")})
output$tquestaoaa <- renderText({ tr("tquestaoaa")})
output$tquestaoaa1 <- renderText({ tr("tquestaoaa")})
output$tquestaoaa2 <- renderText({ tr("tquestaoaa")})
output$tquestaoaa3 <- renderText({ tr("tquestaoaa")})
output$tquestaoaa4 <- renderText({ tr("tquestaoaa")})
output$tquestaoaa5 <- renderText({ tr("tquestaoaa")})
output$associacao <- renderText({ tr("associacao")})
output$mista <- renderText({ tr("mista") })
output$templ1 <- renderText({ tr("templ1") })
output$templ2 <- renderText({ tr("templ2") })
output$templ3 <- renderText({ tr("templ3") })
output$templ4 <- renderText({ tr("templ4") })
output$templ5 <- renderText({ tr("templ5") })
output$templ6 <- renderText({ tr("templ6") })
output$templ7 <- renderText({ tr("templ7") })
output$templ8 <- renderText({ tr("templ8") })
output$botpdf <- renderText({ tr("botpdf") })
output$botxml <- renderText({ tr("botxml") })
output$botzip <- renderText({ tr("botzip") })
output$tutorial <- renderText({ tr("tutorial") })
output$qdissertexto <- renderText({ tr("qdissertexto") })
output$qdissernum <- renderText({ tr("qdissernum") })
output$qunicaesc <- renderText({ tr("qunicaesc") })
output$qmultesc <- renderText({ tr("qmultesc") })
output$qassocia <- renderText({ tr("qassocia") })
output$qmista <- renderText({ tr("qmista") })
output$tfigura <- renderText({ tr("tfigura") })
output$tfigura1 <- renderText({ tr("tfigura") })
output$tfigura2 <- renderText({ tr("tfigura") })
output$tfigura3 <- renderText({ tr("tfigura") })
output$tfigura4 <- renderText({ tr("tfigura") })
output$tfigura5 <- renderText({ tr("tfigura") })
output$trespnum <- renderText({ tr("trespnum") })
output$ttol <- renderText({ tr("ttol") })
output$talternativa <- renderText({ tr("talternativa") })
output$talternativa2 <- renderText({ tr("talternativa") })
output$talternativa3 <- renderText({ tr("talternativa") })
output$talternativa4 <- renderText({ tr("talternativa") })
output$tresposta <- renderText({ tr("tresposta") })
output$tresposta2 <- renderText({ tr("tresposta") })
output$tresposta3 <- renderText({ tr("tresposta") })
output$tresposta4 <- renderText({ tr("tresposta") })
output$tcondicao <- renderText({ tr("tcondicao") })
output$tpathfig <- renderText({ tr("tpathfig") })
output$tpathfig1 <- renderText({ tr("tpathfig") })
output$tpathfig2 <- renderText({ tr("tpathfig") })
output$tpathfig3 <- renderText({ tr("tpathfig") })
output$tpathfig4 <- renderText({ tr("tpathfig") })
output$tpathfig5 <- renderText({ tr("tpathfig") })
output$bsalvar <- renderText({ tr("bsalvar") })
output$bsalvar1 <- renderText({ tr("bsalvar") })
output$bsalvar2 <- renderText({ tr("bsalvar") })
output$bsalvar3 <- renderText({ tr("bsalvar") })
output$bsalvar4 <- renderText({ tr("bsalvar") })
output$bsalvar5 <- renderText({ tr("bsalvar") })
output$minterativo <- renderText({ tr("minterativo") })
output$mninterativo <- renderText({ tr("mninterativo") })
output$questexto <- renderText({ tr("questexto") })
output$quesnum <- renderText({ tr("quesnum") })
output$trespnum <- renderText({ tr("trespnum") })
output$quesunica <- renderText({ tr("quesunica") })
output$alta <- renderText({ tr("alta") })
output$altb <- renderText({ tr("altb") })
output$altc <- renderText({ tr("altc") })
output$altd <- renderText({ tr("altd") })
output$alte <- renderText({ tr("alte") })
output$quesmult <- renderText({ tr("quesmult") })
output$quesasso <- renderText({ tr("quesasso") })
output$quesmista <- renderText({ tr("quesmista") })
output$mversaoatu <- renderText({ tr("mversaoatu") })
output$bsim <- renderText({ tr("bsim") })
output$bnao <- renderText({ tr("bnao") })
output$matualiapp <- renderText({ tr("matualiapp") })
output$headaval <- renderText({ tr("headaval") })
output$headunid <- renderText({ tr("headunid") })
output$headdisc <- renderText({ tr("headdisc") })
output$headchor <- renderText({ tr("headchor") })
output$mgatuaapp <- renderText({ tr("mgatuaapp") })
output$tirefreshapp <- renderText({ tr("tirefreshapp") })
output$merefreshapp <- renderText({ tr("merefreshapp") })
output$meresavedfiles<- renderText({ tr("meresavedfiles")})
output$visu <- renderText({ tr("visu") })
output$merrorpdf1 <- renderText({ tr("merrorpdf1") })
output$merrorpdf2 <- renderText({ tr("merrorpdf2") })
output$bstop <- renderText({ tr("bstop") })
output$brefresh <- renderText({ tr("brefresh") })
output$mgerfiles <- renderText({ tr("mgerfiles") })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.