在 Shiny 中设置反应对象

Question

我正在学习 Shiny 并开发一个简单的应用程序。程序的启动将允许用户导入 CSV 文件，然后在需要时应用过滤器变量。在这个阶段，他们只能使用因子作为过滤变量。我在迭代的基础上应用过滤器。因此，可以根据一个因子级别应用过滤器，然后应用另一个因子级别，依此类推，直到完成。

我能找到的能够对响应式数据框进行子集化的最佳应用是将数据框作为响应式值应用。这似乎可行，但我遇到了一些我不知道如何解决的问题。

1) 鉴于过滤是一个迭代过程，我想跟踪并打印出过滤过程中应用的每个变量和级别。我能想到的最好方法是创建一个全局变量 (

2) 当我尝试在闪亮代码末尾保存反应数据帧时，我收到以下错误“警告：$ 中的错误：$ 运算符对原子向量无效”。我尝试了几件事，但不太明白这里发生了什么，因为对象“file$dfSource”不像普通的反应数据框 dfSource()？

下面闪亮的应用程序使用虹膜数据，因此更易于使用/测试。我不知道将数据框应用于反应值是否是编程的最佳方法，或者是否有更简单的方法来完成所有这些 - 只是想在这里学习最佳方法。

library(shiny)
allfilters <- c()

ui <- (fluidPage(

# Application title
titlePanel("Filter Data"),

# Input Forms
sidebarLayout(
sidebarPanel(
    h3("Data"),
        checkboxInput("selectFilter", label = "Apply Filter Variable", value = FALSE),
        uiOutput("selectFilterVar"),
    uiOutput("selectFilterGroup"),
    helpText("Apply filter to data"),
    uiOutput("selectFilterButton"),
    helpText("Reset data to total"),
    uiOutput("selectResetButton"),   
    h3("Download Data"),    
        helpText("Download Data"),
        downloadButton("downloadData", "Download File")
    ),

# Output Forms
mainPanel(
  tabsetPanel(
     tabPanel("Summary",
     h2("Output Summary"),
     textOutput("ncases"),
     textOutput("selectedfilters")))
  )
  )
))

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

data <- iris
file <- reactiveValues(dfSource = data)

## Select Filter Variable
output$selectFilterVar <- renderUI({
       req(file$dfSource)
       if (input$selectFilter){
       selectInput("filterVar", "Select Filter Variable", multiple = FALSE, choices = sort(names(file$dfSource[, sapply(file$dfSource, is.factor), drop = FALSE])))
}         
})         

# Select Filter Group(s)
output$selectFilterGroup <- renderUI({
        req(file$dfSource)
        req(input$filterVar)
        if (input$selectFilter){
        selectInput("filterGroup", "Select Filter Group", multiple = TRUE, choices = sort(unique(file$dfSource[,input$filterVar])))
}
})

# Apply Filter Button
output$selectFilterButton <- renderUI({
         req(file$dfSource)
         if (input$selectFilter) {
          actionButton("filterButton", "Apply Filter")
}
})

# Apply filter group to data
    observeEvent(input$filterButton, {
    temp <- file$dfSource[(file$dfSource[,input$filterVar] %in% c(input$filterGroup)),]
    file$dfSource <- temp
})

# Reset Total Sample Button
output$selectResetButton <- renderUI({
         req(file$dfSource)
         if (input$selectFilter) {
          actionButton("resetButton", "Reset Total")
}
})

# Reset data to total sample
    observeEvent(input$resetButton, {
    file$dfSource <- data
    updateCheckboxInput(session, "selectFilter", value = FALSE)
    allfilters <- NULL
})

## Summary number of cases
output$ncases <- renderText({
  req(file$dfSource)
  mainTitle <- paste("Number of cases =" , nrow(file$dfSource))
  return(mainTitle)  
})

## Capture selected filter variables in global object
testfilter <- eventReactive(input$filterButton, {
     appliedfilter <- paste0(input$filterVar, "(", input$filterGroup,")")
      if (is.null(allfilters)) {
        allfilters <<- paste("Selected Filters:", appliedfilter)
        } else {
        allfilters <<- paste(allfilters, "&", appliedfilter)
   }
   return(allfilters)
   })

# Print out filter variables in global object
output$selectedfilters <- renderText({
    filteroutput <- testfilter()
    print(filteroutput)
    return(filteroutput)
})

## Save out case data file
output$downloadData <- downloadHandler(
    filename = function() {
      paste("data-", Sys.Date(), ".csv", sep="")
    },
    content = function(file) {
    write.csv(file$dfSource, file)
    }
  )

})

shinyApp(ui, server)

Answer 1

1) 将其存储为全局变量可能不是一个好主意（shiny 中的作用域已经足够复杂了！）。你已经有一个reactiveValues 对象，为什么不使用它呢？

然而，仅此是不够的；问题似乎是eventReactive - 我不太清楚为什么。

这行得通：

# this replaces the testfilter eventReactive
observeEvent(input$filterButton, {
  appliedfilter <- paste0(input$filterVar, "(", input$filterGroup,")")
  if (is.null(file$allfilters)) {
    file$allfilters <- paste("Selected Filters:", appliedfilter)
  } else {
    file$allfilters <- paste(file$allfilters, "&", appliedfilter)
  }
 })

# Print out filter variables in global object
output$selectedfilters <- renderText({
  filteroutput <- file$allfilters
  print(filteroutput)
  return(filteroutput)
})

2) 错误出现在您传递给downloadHandler 的内容函数中。该参数称为file，它会影响file reactiveValues。这有效：

  ## Save out case data file
  output$downloadData <- downloadHandler(
    filename = function() {
      paste("data-", Sys.Date(), ".csv", sep="")
    },
    content = function(filetarget) {
      write.csv(file$dfSource, filetarget)
    }
  )

PS 广告 1：存储过滤器可能会更好，而不是存储过滤后的数据框和列出过滤器的字符串。如果您的用户改变主意，他们必须从头开始，但是如果您存储过滤器，您可以拥有一个允许删除/编辑单个过滤器的表或类似的表。您可以只存储一个二元素向量列表，然后遍历该列表以过滤数据。