Pessoal, a minha duvida é a seguinte:
Eu inclui um botão no quarto painel do meu shinydashboard. Quando clico nele ele deve atualizar a pagaina 4 e me manter nela.
Parece que atualiza todo o dashboard e me manda para a Tela 1. Como faço para atualizar somente a tela 4?
library(shiny)
library(shinydashboard)
ui <- dashboardPage(dashboardHeader(title = p("Title")),
dashboardSidebar(skin = 'light',
collapsed = TRUE,
tags$head(tags$style(HTML('.content-wrapper { height: 1500px !important;}'))),
sidebarMenu( id = "sidebarMenu",
menuItem(text = p(style = 'sidebar_menu_li',"Screen 1", style = "font-size: 1.25em;"), tabName = "panel_1"),
menuItem(text = p(style = 'sidebar_menu_li',"Screen 2", style = "font-size: 1.25em;"), tabName = "panel_2"),
menuItem(text = p(style = 'sidebar_menu_li',"Screen 3", style = "font-size: 1.25em;"), tabName = "panel_3"),
menuItem(text = p(style = 'sidebar_menu_li',"Screen 4", style = "font-size: 1.25em;"), tabName = "panel_4"))
),
dashboardBody(
tabItems(
tabItem(tabName = "panel_1" ,h1("Title 1")),
tabItem(tabName = 'panel_2',h1("Title 2")),
tabItem(tabName = 'panel_3',h1("Title 3")),
tabItem(tabName = "panel_4",h1("Title 4"),
actionButton("submit1" ,"Submit", icon("refresh"),
class = "btn btn-primary")))
)
)
server <- function(input, output, session) {
observeEvent(input$submit1, {
session$reload()})
}
shinyApp(ui, server)