current_language <- reactiveValues(language = "fr")
observe({
language <- input$language
if(!is.null(language)){
if(language != isolate(current_language$language)){
current_language$language <- language
}
}
})
output$label_tab_data <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Data", current_language$language)
})
output$label_tab_exchanges <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Exchanges", current_language$language)
})
output$label_tab_tsPlot <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Time Series", current_language$language)
})
output$label_tab_map_viz <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Map", current_language$language)
})
output$label_tab_layout_view<- renderText({
antaresVizMedTSO:::.getLabelLanguage("Current Layout", current_language$language)
})
output$label_tab_layout_build <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Layout Builder", current_language$language)
})
output$label_tab_map_menu <- renderText({
antaresVizMedTSO:::.getLabelLanguage("plotMap", current_language$language)
})
output$label_tab_map_color <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Colors", current_language$language)
})
output$label_tab_medtso_map_menu <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Med-TSO Maps", current_language$language)
})
output$label_tab_format_output <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Export", current_language$language)
})
output$label_tab_parameters <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Parameters", current_language$language)
})
output$label_tab_help <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Help", current_language$language)
})
output$label_tab_import_data <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Import Data", current_language$language)
})
output$label_tab_import_data_2 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Import Data", current_language$language)
})
output$label_tab_import_data_3 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Import Data", current_language$language)
})
output$label_tab_analysis <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Analysis", current_language$language)
})
output$label_tab_help <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Help", current_language$language)
})
output$title_import_data <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("Antares study selection", current_language$language), " : ")
})
output$title_import_data_2 <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("Antares study selection", current_language$language), " : ")
})
output$title_import_data_3 <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("Antares study selection", current_language$language), " : ")
})
output$title_import_data_4 <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("Antares study selection", current_language$language), " : ")
})
observe({
# button
updateActionButton(session, "init_sim", label = antaresVizMedTSO:::.getLabelLanguage("Set simulation", current_language$language))
updateActionButton(session, "import_data", label = antaresVizMedTSO:::.getLabelLanguage("Validate & import data", current_language$language))
updateActionButton(session, "quit", label = antaresVizMedTSO:::.getLabelLanguage("Quit application", current_language$language))
updateActionButton(session, "update_module", label = antaresVizMedTSO:::.getLabelLanguage("Launch Analysis", current_language$language))
updateActionButton(session, "init_sim_medtso_maps", label = antaresVizMedTSO:::.getLabelLanguage("Set simulation", current_language$language))
updateActionButton(session, "import_data_medtso_maps", label = antaresVizMedTSO:::.getLabelLanguage("Validate & import data", current_language$language))
updateActionButton(session, "init_sim_format_output", label = antaresVizMedTSO:::.getLabelLanguage("Set simulation", current_language$language))
updateActionButton(session, "import_data_format_output", label = antaresVizMedTSO:::.getLabelLanguage("Validate & import data", current_language$language))
# updateActionButton(session, "export_annual_format_output", label = antaresVizMedTSO:::.getLabelLanguage("Generate output file", current_language$language))
updateCheckboxInput(session, "sel_compare_mcyear",
label = antaresVizMedTSO:::.getLabelLanguage("mcYear on all modules ?", current_language$language))
# compare
updateSelectInput(session,"sel_compare_prodstack", label = paste0(antaresVizMedTSO:::.getLabelLanguage("Production", current_language$language), " : "))
updateSelectInput(session,"sel_compare_exchangesStack", label = paste0(antaresVizMedTSO:::.getLabelLanguage("Exchanges", current_language$language), " : "))
updateSelectInput(session,"sel_compare_tsPlot", label = paste0(antaresVizMedTSO:::.getLabelLanguage("Time Series", current_language$language), " : "))
updateSelectInput(session,"sel_compare_plotMap", label = paste0(antaresVizMedTSO:::.getLabelLanguage("Map", current_language$language), " : "))
# data selection
length_data <- isolate({list_data_all$antaresDataList})
for(i in 1:length(length_data)){
updateActionButton(session, paste0("list_study_params", i),
label = antaresVizMedTSO:::.getLabelLanguage("View parameters", current_language$language))
updateActionButton(session, paste0("list_study_rm", i),
label = antaresVizMedTSO:::.getLabelLanguage("Remove study", current_language$language))
updateCheckboxInput(session, paste0("list_study_check", i),
label = antaresVizMedTSO:::.getLabelLanguage("Include study in analysis", current_language$language))
updateCheckboxInput(session, paste0("list_study_ref", i),
label = antaresVizMedTSO:::.getLabelLanguage("Choose this study as a reference", current_language$language))
}
cur_timeStep <- isolate({input$read_timeStep})
choices_ts <- c("hourly", "daily", "weekly", "monthly", "annual")
names(choices_ts) <- sapply(choices_ts, function(x){
antaresVizMedTSO:::.getLabelLanguage(x, current_language$language)
})
updateSelectInput(session,"read_timeStep",
label = paste0(antaresVizMedTSO:::.getLabelLanguage("timeStep", current_language$language), " : "),
choices = choices_ts, selected = cur_timeStep)
cur_timeStep <- isolate({input$timeSteps_h5})
updateSelectInput(session,"timeSteps_h5",
label = paste0(antaresVizMedTSO:::.getLabelLanguage("timeStep", current_language$language), " : "),
choices = choices_ts, selected = cur_timeStep)
# Remove virtual Areas
updateCheckboxInput(session, "rmva_ctrl", antaresVizMedTSO:::.getLabelLanguage("enabled", current_language$language))
updateCheckboxInput(session, "rmva_ctrl_2", paste0(
antaresVizMedTSO:::.getLabelLanguage("Remove virtual Areas", current_language$language),
" : ",
antaresVizMedTSO:::.getLabelLanguage("step", current_language$language),
" 2")
)
updateCheckboxInput(session, "rmva_ctrl_3", paste0(
antaresVizMedTSO:::.getLabelLanguage("Remove virtual Areas", current_language$language),
" : ",
antaresVizMedTSO:::.getLabelLanguage("step", current_language$language),
" 3")
)
updateCheckboxInput(session, "rmva_ctrl_medtso_maps", antaresVizMedTSO:::.getLabelLanguage("enabled", current_language$language))
updateCheckboxInput(session, "rmva_ctrl_format_output", antaresVizMedTSO:::.getLabelLanguage("enabled", current_language$language))
# H5
updateCheckboxInput(session, "enabled_write_h5", antaresVizMedTSO:::.getLabelLanguage("enabled", current_language$language))
updateCheckboxInput(session, "rmva_ctrl_h5", antaresVizMedTSO:::.getLabelLanguage("enabled", current_language$language))
updateActionButton(session,"write_h5", label = antaresVizMedTSO:::.getLabelLanguage("Convert study to h5", current_language$language))
# params
updateCheckboxInput(session, "is_shared_input", antaresVizMedTSO:::.getLabelLanguage("Share inputs between modules ?", current_language$language))
})
output$current_opts <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("ANTARES Simulation", current_language$language), " : ",
current_study_path())
})
output$current_opts_2 <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("ANTARES Simulation", current_language$language), " : ",
current_study_path())
})
output$current_opts_3 <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("ANTARES Simulation", current_language$language), " : ",
current_study_path())
})
output$title_readAntares <- renderText({
antaresVizMedTSO:::.getLabelLanguage("readAntares parameters", current_language$language)
})
output$title_readAntares_2 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("readAntares parameters", current_language$language)
})
output$title_readAntares_3 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("readAntares parameters", current_language$language)
})
output$title_analysis <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Analysis parameters", current_language$language)
})
output$title_studies <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("Studies", current_language$language), " : ")
})
output$title_studies_2 <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("Studies", current_language$language), " : ")
})
output$title_compare <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("Compare", current_language$language), " : ")
})
output$title_removeVirtualAreas <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("Remove virtual Areas", current_language$language), " : ")
})
output$title_removeVirtualAreas_2 <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("Remove virtual Areas", current_language$language), " : ")
})
output$title_removeVirtualAreas_3 <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("Remove virtual Areas", current_language$language), " : ")
})
output$title_removeVirtualAreas_h5 <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("Remove virtual Areas", current_language$language), " : ")
})
output$title_writeH5 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("writeAntaresH5 parameters", current_language$language)
})
output$directory_h5 <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("Target directory", current_language$language), " : ")
})
output$title_h5_timeStep <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("timeStep", current_language$language), " : ")
})
output$title_enabled_H5 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Write study in h5 ?", current_language$language)
})
output$title_readAntaresRAM <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("readAntares RAM limit (in Go)", current_language$language), " : ")
})
output$title_antaresVizRAM <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("antaresViz data module (in Mb)", current_language$language), " : ")
})
output$no_data_1 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No data imported", current_language$language)
})
output$no_data_2 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No data imported", current_language$language)
})
output$no_data_3 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No data imported", current_language$language)
})
output$no_data_4 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No data imported", current_language$language)
})
output$no_data_5 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No data imported", current_language$language)
})
output$no_data_6 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No data imported", current_language$language)
})
output$no_data_7 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No data imported", current_language$language)
})
output$no_data_8 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No data imported", current_language$language)
})
output$no_data_9 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No data imported", current_language$language)
})
output$no_data_10 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No data imported", current_language$language)
})
output$no_data_11 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No data imported", current_language$language)
})
output$no_data_12 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No data imported", current_language$language)
})
output$no_data_13 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No data imported", current_language$language)
})
output$no_layout_1 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Please set or import a map layout before", current_language$language)
})
output$no_layout_2 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Please set or import a map layout before", current_language$language)
})
output$no_layout_3 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Please set or import a map layout before", current_language$language)
})
output$title_download_layout <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("Download Layout", current_language$language), " : ")
})
output$title_import_layout <- renderText({
paste0(antaresVizMedTSO:::.getLabelLanguage("Import a layout", current_language$language), " : ")
})
output$title_current_layout <- renderText({
antaresVizMedTSO:::.getLabelLanguage("Current map layout", current_language$language)
})
output$no_areas_1 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No areas imported", current_language$language)
})
output$no_areas_2 <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No areas imported", current_language$language)
})
output$no_links <- renderText({
antaresVizMedTSO:::.getLabelLanguage("No links imported", current_language$language)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.