选择闪亮的数据

Question

我想要一个 shinyApp 来创建一个新的数据框，其中的值是从另一个已经加载的数据框中选择的。

我已经尝试根据我在这里看到的一些帖子构建它，但仍然无法弄清楚。

这是df：

Names,ID
Adam,1234
Smith,4321
Frank,1111

这是我的代码：

library(data.table)
library(shiny)
#dataframe
names <- c("Adam", "Smith", "Frank")
id <- c(1234, 4321, 1111)
data <- data.table(names, id)

#empty dataframe
df <- data.frame(matrix(ncol = 2, nrow = 0))
x <- c("names", "id")
colnames(df) <- x

ui <- fluidPage(
  selectInput("names",
              "Names:",
              c("Search here...",
                data$names)),
  dataTableOutput("tabela")
)

server <- function(input, output, session) {
  df_subset <- reactive({
    df <- subset(data, names == input$names)
    return(df)
  })
  
output$tabela <- renderDataTable({df_subset()}) 

}

shinyApp(ui, server)

我希望用户在可视化名称时选择名称，然后他们单击操作按钮（我将在稍后处理）以在该新数据帧上运行脚本。

当我选择第一个名称时，它会将该值选择到表中，但当我选择另一个名称时会覆盖它。

它应该是这样的：

Select screen

After selecting one name

After selecting a second name

等等，所以他们可以选择任意数量的。 有人可以帮我吗？ 谢谢

Answer 1

这是一个命名错误，导致了您的错误。下面是工作示例。但是，您的 q 仍然不清楚，子集空数据框是什么意思？只是想让您知道，以防万一您不知道。当您使用renderDataTable 时，搜索框会根据您键入的内容自动划分子集。例如，如果您键入Adam，所有名称为 adam 的行将自动被子集化。

library(shiny)
library(data.table)

names <- c("Adam", "Smith", "Frank")
id <- c(1234, 4321, 1111)
data <- data.table(names, id)

ui <- fluidPage(selectInput("name",
                            "Names",
                            choices = unique(data$names)),

                dataTableOutput("table"))

server <- function(input, output, session) {
  #creating empty dataframe to be subsetted
  df <- data.frame(matrix(ncol = 2, nrow = 0))
  x <- c("names", "id")
  colnames(df) <- x

  df_subset <- reactive({
    a <- subset(df, names == input$name)
    return(a)
  })

  output$table <- DT::renderDataTable({
    df_subset()
  })
}

shinyApp(ui, server)

Answer 2

数据框data 没有被覆盖——它是基于输入的“主动”子集——如果这有意义的话。呈现的dataTableOutput 正在发生变化，这是预期的行为。

此外，您不需要响应式df_subset，以下代码应该可以正常工作：

代码

library(data.table)
library(shiny)

names <- c("Adam", "Smith", "Frank")
id <- c(1234, 4321, 1111)
data <- data.table(names, id)
rm(names, id)

ui <- fluidPage(      
  fluidRow(
    column(12,
           h2("Original Table"),
           dataTableOutput("tabela")
           )
    ),
  fluidRow(
    column(8, 
           h2("Select Names for new table"),
           selectInput(inputId = "names", label = "Select Name", 
                       choices = data$names, multiple = T))
  ),
  fluidRow(
    column(12, 
           h2("Subset Table"),
           dataTableOutput("tabelb"))
  )

)

server <- function(input, output, session) {
  output$tabela <- renderDataTable({return(data)})
  output$tabelb <- renderDataTable({return(data[ names %in% input$names])})       
}

shinyApp(ui, server)

输出

在此处查看答案：R shiny - save chosen values in selectInput，您可能希望将reactiveValues 保存为会话 - 看起来更优雅。