小编Dim*_* D.的帖子

我正在尝试在简单的 Shiny 应用程序中动态选择特定的 tabPanel。app的脚本如下：

用户界面

library(shiny)
shinyUI(fluidPage(

  titlePanel("SCORE CARD DEVELOPMENT PLATFORM"),
    navbarPage("ScoreDevApp",
         tabPanel("Settings",
                  fluidRow(column(2,
                                  actionButton("goButton_service", "Load   saved parameters",width=200)
                                  )
                          )
         ),
         tabPanel("Download & Binning input data")
        )
)
)

服务器.r :

library(shiny)

shinyServer(function(input, output, session) {
  #load saved parameters 
  observeEvent(input$goButton_service, {
    updateTabsetPanel(session, "ScoreDevApp", selected = "Download & Binning  input data")
 })  
})  

这个想法是按下按钮"goButton_service"并选择 tabPanel "Download & Binning input data"。

我使用了这里的示例R Shiny switch tabPanel when selectInput value changes。

但是没有选择 tabPanel。我将非常感谢您的帮助:-)

我正在从这里测试脚本http://shiny.rstudio.com/articles/action-buttons.html（请参阅“模式1 - 命令”部分）。

如果按下网站上的“Click me”按钮，那么一切都OK - 我们可以看到弹出菜单。

但是，如果将示例脚本复制到新的 .R 文件中并运行它 - 不会出现弹出消息，不会生成警告或错误消息（我的浏览器是 Google Chrome）。所以我对此停滞不前。

示例脚本：

library(shiny)

ui <- fluidPage(
  tags$head(tags$script(src = "message-handler.js")),
  actionButton("do", "Click Me")
)

server <- function(input, output, session) {
  observeEvent(input$do, {
    session$sendCustomMessage(type = 'testmessage',
      message = 'Thank you for clicking')
  })
}

shinyApp(ui, server)