在闪亮的 if 语句中使用反应式表达式

Question

我正在编写一个闪亮的应用程序，其输出应取决于在闪亮的反应式表达式中计算的变量的值。我相信我没有复制实际的应用程序，而是用以下简单的应用程序重现了我的问题：

ui.R file:

   library(shiny)

   shinyUI(pageWithSidebar(

   headerPanel("Illustrating problem"),

   sidebarPanel(

   numericInput('id1', 'Numeric input, labeled id1', 0, min = 0, max = 100, step        =5)

  ),

  mainPanel(

    h4('You entered'),

    verbatimTextOutput("oid1"),

    verbatimTextOutput("odic")

  )
))

server.R file


library(shiny)

shinyServer(

  function(input, output) {

    output$oid1 <- renderPrint({input$id1})

    x<-reactive({5*input$id1})

    if (x()>50) output$oid2<-renderPrint({"You entered a number greater than 10"})

    else output$oid2<-renderPrint({"You entered a number less than or equal to 
10"})

  }
)

如果我像这样运行它，那么我会收到错误： 错误 .getReactiveEnvironment()$currentContext() :`

在没有活跃的反应上下文的情况下不允许操作。 （你试过 做一些只能从反应式内部完成的事情 表达式或观察者。）

如果我将 if 语句更改为：if (x>50) ... 那么我得到错误：

x > 50 中的错误：比较 (6) 仅适用于原子和列表类型

当我将 if 语句更改为：if (reactive({(x>50)})) ... 然后我收到错误消息：

if (reactive({ : 参数不可解释为逻辑) 中的错误

非常感谢任何帮助

Answer 1

几个问题。第一个也是最大的问题是您似乎不了解反应性是如何工作的。错误说“没有活动的反应上下文不允许操作”，这就是问题所在 - 您正在服务器函数的主体内访问x()，但不在反应上下文中。例如，任何render* 函数都是反应式上下文。因此，要解决这个问题，您只需将 if 语句移动到 renderPrint 中即可。

另一个小问题是您的输出 ID 不匹配（verbatimTextOutput("odic") 与 output$oid2）。

如果你不了解反应性，我强烈建议你花半个小时来更好地理解它。 This tutorial 有一个关于反应性的部分可能会有所帮助，或者您可以重新阅读 RStudio 的官方闪亮教程。

这是您的固定应用的代码（我删除了一堆无用的 UI 元素）

library(shiny)
ui <- fluidPage(
  numericInput('id1', 'Numeric input, labeled id1', 0, min = 0, max = 100, step=5),
  verbatimTextOutput("oid1"),
  verbatimTextOutput("oid2")

)
server <- function(input, output, session) {
  output$oid1 <- renderPrint({input$id1})

  x<-reactive({5*input$id1})

  output$oid2<-renderPrint({
    if (x()>50) {
      "You entered a number greater than 10"
    } else {
      "You entered a number less than or equal to 10"
    }
  })
}
shinyApp(ui = ui, server = server)

Answer 2

请注意，Shiny 根据事件驱动模型工作 - 几乎所有面向图形的 UI 都是如此（今天是绝大多数）。这不是一个新概念，至少从 80 年代就已经存在，但它比遵循单个流程图的编程要复杂得多——它确实需要一些时间来适应。

无论如何，在闪亮的reactive 和output 和observe 语句必须在顶层，我认为这没有例外。

你可能想要这样的东西：

library(shiny)

u <- shinyUI(pageWithSidebar(

  headerPanel("Illustrating problem"),

  sidebarPanel(
    numericInput('id1', 'Numeric input, labeled id1', 0, min = 0, max = 100, step =5)
  ),

  mainPanel(

    h4('You entered'),
    verbatimTextOutput("oid1"),
    verbatimTextOutput("oid2")

  )
))

s <- shinyServer(function(input, output) {

    output$oid1 <- renderPrint({input$id1})

    x<-reactive({5*input$id1})

    output$oid2<-renderPrint({
      if (x()>50){
         "You entered a number greater than 10"
      } else {
         "You entered a number less than or equal to 10"
      }
    }
  )
}
)
shinyApp(ui = u, server = s)

产量：