R Shiny - 隔离使用 req() 检查前置条件的反应式表达式

Question

下面的应用程序包含一个 selectInput 和两个选项 iris 和 mtcars 以及一个显示当前选择的标题。

• 如果用户选择iris，则在标题下方呈现相应数据集的DT。
• 如果用户选择mtcars，则标题下方不会呈现任何内容。

这是截图：

我将选定的数据集存储在反应式表达式sel_df 中。该表达式在返回相应的数据集之前检查用户是否使用req(input$dataset=='iris') 选择了虹膜：

sel_df = reactive({

    req(input$dataset=='iris')

    iris
  })

sel_df 被传递给renderDT，它呈现数据表：

output$df = renderDT({

    sel_df()

  })

然后，我使用 h3 标头、数据表和数据表的标签呈现一些 UI 以显示 selectInput 的当前值：

  output$tbl = renderUI({

    tagList(
      h3(paste0('Selected:', input$dataset)), # Header should be visible regardless of the value of input$dataset
      tags$label(class = 'control-label', style = if(!isTruthy(isolate(sel_df()))) 'display:none;', `for` = 'df', 'Data:'), # Label should only show if input$dataset == 'iris'
      DTOutput('df')
    )

  })

我希望数据表及其标签仅在 sel_df 输出数据集时可见。但是由于应用程序的结构方式，这需要output$tbl（上面的renderUI）依赖于sel_df，以便每当input$dataset == 'mtcars' 时整个UI 块都会消失。

我想要的输出要求output$tbl 仅依赖于input$dataset，因此无论input$dataset 的值如何，h3 标头始终可见。为此，我尝试使用isolate '隔离'sel_df，但output$tbl 在每次失效时仍会调用sel_df。

我不确定我哪里出错了。我想我可能错误地使用了isolate，但我不知道为什么，我想知道是否有人可以解释一下。

这是完整的应用程序：

library(shiny)
library(DT)

ui <- fluidPage(
  selectInput('dataset', 'Dataset', c('iris', 'mtcars')),
  uiOutput('tbl')
)

server <- function(input, output, session) {

  sel_df = reactive({

    req(input$dataset=='iris')

    iris
  })

  output$df = renderDT({

    sel_df()

  })

  output$tbl = renderUI({

    tagList(
      h3(paste0('Selected:', input$dataset)), # Header should be visible regardless of the value of input$dataset
      tags$label(class = 'control-label', style = if(!isTruthy(isolate(sel_df()))) 'display:none;', `for` = 'df', 'Data:'), # Label should only show if input$dataset == 'iris'
      DTOutput('df')
    )

  })

}

shinyApp(ui, server)

Answer 1

output$tbl 依赖于input$dataset，所以自然会在每次input$dataset 的值发生变化时调用它。 sel_df() 也依赖于 input$dataset 并在它发生变化时被调用。这就是预期的样子，我不认为你的标签被调用，因为它取决于sel_df()。

但是，请注意当sel_df 为NULL 时，taglist() 调用也将返回NULL。这是因为当input$dataset != "iris" 时，您的sel_df() 调用失败，因此tagList 也会失败：

如果任何给定值不真实，则通过引发 “静默”异常（Shiny 未记录，也未显示在 Shiny 应用的 UI 中）。

试试这个：

server <- function(input, output, session) {
  sel_df = reactive({
    if(input$dataset=='iris') {
      iris 
    } else {
      NULL
    }
  })

您会发现，使用 mtcars，h3() 标签会显示，但标签会根据需要隐藏。

Answer 2

如果您想在sel_df() 中使用req，您可以在renderDT 中使用trycatch，这解决了@January 提到的问题，当您不选择虹膜时tagsList 失败。

您还需要修改 if 语句以使用 is.null 而不是，因为我将其用作 trycatch 中的默认 return 值。

library(shiny)
library(DT)

ui <- fluidPage(
  selectInput('dataset', 'Dataset', c('iris', 'mtcars')),
  uiOutput('tbl')
)

server <- function(input, output, session) {

  sel_df = reactive({
    req(input$dataset=='iris')
    iris
  })

  output$df = renderDT({

    out <- tryCatch(sel_df(), error = function(e) NULL)
    return(out)

  })

  output$tbl = renderUI({

    tagList(
      tags$h3(paste0('Selected:', input$dataset)), # Header should be visible regardless of the value of input$dataset
      tags$label(class = 'control-label', style = if(is.null('df')) 'display:none;', `for` = 'df', 'Data:'), # Label should only show if input$dataset == 'iris'
      DTOutput('df')
    )

  })

}

shinyApp(ui, server)