在闪亮的反应结构中子集数据框

Question

我无法在反应式闪亮结构中对数据帧进行子集化并将其显示为 table。如果我尝试只显示数据框，我可以但不能进行子集化和显示。我相信它必须与 input$ 的使用方式有关。

请帮忙，我对 shiny 还很陌生

数据集

dput(b)
structure(list(Date = c("1-Jan", "2-Jan", "3-Jan"), Month = c("Jan", 
"Jan", "Jan"), Days = c("Thu", "Fri", "Sat"), A = c(30712L, 26842L, 
21640L), B = c(26505L, 25906L, 22929L), C = c(22128L, 26814L, 
22091L), D = c(30994L, 23935L, 20048L), E = c("38%", "51%", "37%"
), F = c(71L, 70L, 71L), G = c(91L, 114L, 104L), H = c(77L, 98L, 
91L), I = c(-4621L, -463L, 291L), J = c("-32.00%", "-3.30%", 
"2.00%")), .Names = c("Date", "Month", "Days", "A", "B", "C", 
"D", "E", "F", "G", "H", "I", "J"), class = "data.frame", row.names = c(NA, 
-3L))

ui.R

library(shiny)
library(shinythemes)

shinyUI(fluidPage(                  
  sidebarLayout(   
    sidebarPanel(
      selectInput(inputId = "col", label = "Columns",choices = colnames(b[4:8]),selected = colnames(b[4]))),

    mainPanel(dataTableOutput(outputId = "table")))))

server.R

library(shiny)
library(shinythemes)
library(ggplot2)
library(dplyr)

b<-read.csv("newb.csv",header=TRUE,sep=",",stringsAsFactors=FALSE)

shinyServer(function(input, output) {

  datum<-reactive({
    d<-b[,input$col]
    return(d)
  })

  output$table<-renderDataTable({datum()})

 })

Answer 1

发生这种情况是因为您只选择了 b 数据框的一列。此子集化的结果是矢量，而不是数据框，因此 renderDataTable 无法渲染它。

您可以在反应式表达式中将向量转换为数据框：

  datum<-reactive({
    d <- b[,input$col]
    d <- as.data.frame(d)
    colnames(d) <- input$col
    d
  })

使用@docendo discimus 的评论的更简单的解决方案：

datum<-reactive({ d<-b[,input$col,drop=FALSE] 
d })

在闪亮的反应结构中子集数据框

Subset a dataframe within shiny reactive structure

r

shiny