R 带有 CheckboxInput 的闪亮过滤器

Question

我无法根据 CheckBoxInput 在我的 Shiny 应用程序中过滤我的数据集。

我猜问题是 CheckboxInput 的格式错误。

在这里，我还有一个示例代码：

x <- as.data.frame(matrix(data = 1:20,ncol=2))
colnames(x) <- c("Test1","Test2")

ui <- fluidPage(
checkboxGroupInput("icons", "Choose icons:", choices = 1:10),
textOutput("test"))

server <- function(input, output, session) {
output$test <- renderText({
  req(input$icons)
  tmp_input <- as.numeric(as.vector(input$icons))
  tmp <- x %>%
    dplyr::filter(Test1 %in% tmp_input)
  return(tmp)
})
}  
shinyApp(ui, server)

错误消息是：参数 1（类型 'list'）不能由 'cat' 处理

非常感谢您的帮助！

Answer 1

tmp是一个 data.frame （实际上也是一个列表）。 您返回它以使其由使用cat renderText呈现。 但是cat需要原子向量并且无法处理列表。 尝试结合使用renderPrint和verbatimTextOutput ：

library(shiny)
library(dplyr)
x <- as.data.frame(matrix(data = 1:20,ncol=2))
colnames(x) <- c("Test1","Test2")

ui <- fluidPage(
  checkboxGroupInput("icons", "Choose icons:", choices = 1:10),
  verbatimTextOutput("test"))

server <- function(input, output, session) {
  output$test <- renderPrint({
    req(input$icons)
    tmp_input <- as.numeric(as.vector(input$icons))
    tmp <- x %>%
      dplyr::filter(Test1 %in% tmp_input)
    return(tmp)
  })
}  
shinyApp(ui, server)