R闪亮的条件面板输出值

Question

关于conditionalPanel in R shiny 有很多问题，但我仍然不明白如何将 server.R 创建的值用于conditionalPanel。这是我想做的事情：我有一个类似http://some-url.com/php/session_check.php?sid=session_id 的网址。当session_id 以 0 开头时，例如http://some-url.com/php/session_check.php?sid=00221245，将返回带有用户名的字符串（例如“testuser”）。当 session_id 以除 0 以外的任何其他数字开头时，例如 http://some-url.com/php/session_check.php?sid=10221245，返回 0。现在我想隐藏一个面板，具体取决于返回的是 0 还是用户名。因此我尝试做这样的事情：

conditionalPanel(
 condition="output.disable_ui!=0"

我知道这是错误的，但我真的不明白condition 参数对outputs 的作用，因为如果我对来自ui.R 的任何input 执行此操作，同样会起作用。

这是我的示例代码：

server.R

library(shiny)
library(raster)
library(rgdal)

shinyServer(function(input, output, clientData) {

  output$disable_ui<-reactive({
    query<-parseQueryString(clientData$url_search)
    url_path<-paste(sep="","http://some-url.com/php/session_check.php?sid=",query, collapse="")
    read.table(url_path)
  })

  data <- reactive({  
    inFile <- input$example_layer 

    if (is.null(inFile)) 
      return(NULL)
    raster.file<- raster(inFile$datapath) 
  })

  output$raster.plot <- renderPrint({
    "Nothing to see here"
  })
})

ui.R

library(shiny)

shinyUI(pageWithSidebar(

  headerPanel("test"),

  sidebarPanel(
    conditionalPanel(
      condition="output.disable_ui!=0",

    #File Upload
    fileInput('example_layer', 'Choose Raster Layer (ASCII)', multiple=FALSE, accept='asc')

  )),

  mainPanel(
    verbatimTextOutput("raster.plot")
  )
))

Answer 1

@Julien Navarre 是对的：必须渲染输出。除非您将其选项 suspendWhenHidden 设置为 FALSE：

  output$disable_ui<-reactive({
    query<-parseQueryString(clientData$url_search)
    url_path<-paste(sep="","http://some-url.com/php/session_check.php?sid=",query, collapse="")
    read.table(url_path)
  })
  outputOptions(output, 'disable_ui', suspendWhenHidden=FALSE)

Answer 2

如果你想在conditionalPanel的条件下使用output，我认为必须在UI中呈现它。

以您为例，条件面板的 HTML 将如下所示：

<div data-display-if="output.disable_ui!=0">

如果您的页面中没有任何元素（在服务器端创建为输出）具有 ID“disable_ui”，则条件“output.disable_ui!=0”始终为 TRUE，并且始终显示条件面板。

一个简单的例子：

shiny::runApp(list( 
  ui = pageWithSidebar(
    
    headerPanel("test"),
    
    sidebarPanel(
      selectInput(
        "var", "Var",
        0:9)),
    
    mainPanel(
      verbatimTextOutput("id"),
      conditionalPanel(
        condition="output.id!=0",
        h4('Visible')
      )
    )
  ),
  server = function(input, output) {
    
    output$id<-reactive({input$var})
    
  }
))

如果您选择一个不同于 0 的数字，将显示条件面板。 现在，注释verbatimTextOutput("id"),这一行，页面中没有id为“id”的元素，那么条件面板<div data-display-if="output.id!=0">的条件不能为FALSE。

Answer 3

这是这个问题的真正答案： 在你的服务器函数中使用它：

outputOptions(output, "outputId", suspendWhenHidden = FALSE)

然后您就可以在条件面板中使用output.item。

从这里回答： https://github.com/daattali/advanced-shiny/blob/master/server-to-ui-variable/app.R

这里： https://github.com/rstudio/shiny/issues/1318