3

我正在尝试使用 R 中美妙的 Shiny 库构建一个应用程序，我希望它为用户生成一些错误和状态消息。为了让它工作，我将 conditionalPanel 与输出对象上的一些布尔标志结合使用，以呈现错误和状态消息的面板。根据文档，这个策略应该对我有用，但事实并非如此。

我把这个想法归结为一个简单的 ui 和服务器脚本，基本上我想要做的是：

用户界面

library("shiny")

shinyUI(pageWithSidebar(

  headerPanel('Hey There Guys!'),

  sidebarPanel(
    h4('Switch the message on and off!'),
    actionButton('switch', 'Switch')
  ),

  mainPanel(
    conditionalPanel(condition = 'output.DISP_MESSAGE',
      verbatimTextOutput('msg')
    )
  )
))

服务器.R

library('shiny')

shinyServer(function(input, output) {
  output$DISP_MESSAGE <- reactive({input$switch %% 2 == 0})
  output$msg <- renderPrint({print("Hey Ho!  Let's Go!")})
})

这里的想法是按下按钮应该切换消息嘿嗬！我们走吧！开启和关闭。使用发布的代码，这不起作用。在 Chrome 中加载页面时不会显示该消息，并且按下按钮不会执行任何操作。我有来自 CRAN 的最新版本的 Shiny。任何帮助将不胜感激！

4

1 回答 1

2

checkboxInput这是通过 a而不是 Action Button实现相同效果的一种方法。您可以将其用作启动代码以使其执行您想要的操作。

用户界面

library("shiny")
shinyUI(pageWithSidebar(

  headerPanel('Hey There Guys!'),

  sidebarPanel(
    h4('Switch the message on and off!'),
    checkboxInput(inputId = "opt_switch", label = "Toggle Message", value = FALSE)
  ),

  mainPanel(
    conditionalPanel(condition = 'opt_switch',
                     verbatimTextOutput('msg')
    )
  )  
))

服务器.R

library('shiny')

shinyServer(function(input, output) {
    output$msg <- renderText({
      if(input$opt_switch == TRUE) {
         ("Hey Ho!  Let's Go!")
      }           
  })
})

希望有帮助。

于 2013-07-26T17:42:42.530 回答