shiny - 如何在没有全局的情况下以 Shiny 的方式将变量从 server.R 传递到 ui.R？

Question

我尝试了不同的方法在 server.R 中存储变量并在 ui.R 中使用相同的变量，但没有太大成功。(除了将其声明为全局)有没有办法将变量从 server.R 传递给 ui.R？只要它有效，它可能是一种hacky方式。

Answer 1

这可能对您有用(直接取自我的 Shiny tips 'n tricks list ):

在 UI 条件面板()中使用来自服务器的变量

在 UI 中使用条件面板时，条件通常是使用输入值的表达式。但是，当您想要使用具有更复杂条件且不一定与输入字段直接相关的条件面板时会发生什么？此示例说明如何在服务器代码中定义可在 UI 中使用的输出变量。另一种方法是使用 shinyjs 中的 show() 和 hide() 函数。包裹。

library(shiny)

ui <- fluidPage(
  selectInput("num", "Choose a number", 1:10),
  conditionalPanel(
    condition = "output.square",
    "That's a perfect square!"
  )
)

server <- function(input, output, session) {
  output$square <- reactive({
    sqrt(as.numeric(input$num)) %% 1 == 0
  })
  outputOptions(output, 'square', suspendWhenHidden = FALSE)
}

shinyApp(ui = ui, server = server)