tabPanel(textOutput("label_tab_map_menu"),
tabsetPanel(id = "map_panel",
tabPanel(textOutput("label_tab_layout_build"),
fluidRow(
column(12,
conditionalPanel(condition = "output.have_data",
conditionalPanel(condition = "output.have_data_links || output.have_data_areas",
antaresViz:::changeCoordsUI("ml")
),
conditionalPanel(condition = "output.have_data_links === false && output.have_data_areas === false",
h3(textOutput("no_data_4"))
)
),
conditionalPanel(condition = "output.have_data === false",
h3(textOutput("no_data_5"))
)
)
)
),
tabPanel(textOutput("label_tab_layout_view"),
fluidRow(
column(12,
conditionalPanel(condition = "output.must_print_map",
div(h3(textOutput("title_current_layout")), align = "center"),
leafletDragPointsOutput("current_layout", height = "700px")
),
conditionalPanel(condition = "output.must_print_map === false",
h3(textOutput("no_layout_1"))
),
hr(),
fluidRow(
column(6,
fluidRow(
column(6, h4(textOutput("title_import_layout"))),
column(6, div(fileInput("import_layout", NULL,
accept = c(".RDS", ".rds", ".Rds")
), align = "left"))
)
),
column(6,
conditionalPanel(condition = "output.must_print_map",
fluidRow(
column(6, h4(textOutput("title_download_layout"))),
column(6, div(downloadButton('download_layout', NULL), align = "left"))
)
)
)
)
)
)
),
tabPanel(textOutput("label_tab_map_viz"),
fluidRow(
column(12,
conditionalPanel(condition = "output.have_data",
conditionalPanel(condition = "output.must_print_map",
uiOutput("plotMap_ui")
),
conditionalPanel(condition = "output.must_print_map === false",
h3(textOutput("no_layout_2"))
)
),
conditionalPanel(condition = "output.have_data === false",
h3(textOutput("no_data_6"))
)
)
)
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.