From 5ad06115b754c016ce1f32af728c0554670a5002 Mon Sep 17 00:00:00 2001 From: Sam Dumble Date: Fri, 25 Oct 2024 13:26:03 +0100 Subject: [PATCH] Change in arguments to update_lang causing an error --- app.R | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/app.R b/app.R index 5e6e876..bc2c056 100644 --- a/app.R +++ b/app.R @@ -60,11 +60,12 @@ server <- function(input, output, session) { output$headerin <- renderUI({ checkboxInput("header",i18n$t("Include header/footer in schedule?"),value = TRUE) }) - + observeEvent(input$selected_language, { # Here is where we update language in session - shiny.i18n::update_lang(session, input$selected_language) + + shiny.i18n::update_lang(input$selected_language,session ) }) output$downloader<-renderText( @@ -74,6 +75,7 @@ server <- function(input, output, session) { i18n$t("Here"),'

')) ) + observeEvent(input$file1,{ @@ -203,7 +205,7 @@ output$fn <- renderUI({ content = function(con) { dl_vers<-select(out1,-doy,-year) - if(input$header==TRUE){ + if(input$header==TRUE){ col1<-c("[XXX]","[XXX]","[XXX].100",0,-1,"-1.00",-1,-1,-1,0,0,-1,1,"[XXX]","","","Year Month Option", "[XXX]","[XXX]","[XXX]","[XXX]","12","0.08333","F","[XXX].wth","") col2<-c("Starting Year","Last Year","Site file name","Labeling type","Labeling Year","Microcosm",