R Shiny 操作数据表

Question

我想先上传一个 CSV 文件，然后根据在侧面板中选择的内容来操作我的数据表的呈现方式。这是我的 CSV 数据示例：

Students Data Table

这是如何工作的，我将首先选择我的部门：如果我是校长，则打印整个数据表。如果我是教师，我只能看到 SubmissionDate、StudentID 和 Class。如果我是学生，我只能看到 SubmissionDate、StudentID 和 Student。

此外，我打算按 SubmissionDate 过滤。无论我是谁，如果我选择一个日期范围，则只会显示日期范围内的那些行。例如，如果我是 A03 Sam，如果我没有选择日期范围，我将看到 2 行。如果我选择一年的日期范围，我只会看到 1 行。

我的问题是： 1. 我的数据表显然无法运行。是因为使用 fread 吗？我收到此错误：“警告：.getReactiveEnvironment()$currentContext 中的错误：没有活动的反应上下文不允许操作。（您试图做一些只能从反应表达式或观察者内部完成的事情。）”

1. 如何从多个输入中过滤我的数据表？

这是我的 R Shiny 代码：

ui <- fluidPage(
  titlePanel("Students"), 
  sidebarLayout( 
    sidebarPanel(
      fileInput("file1", 
                "Choose CSV File", 
                multiple=TRUE, 
                accept=c( "text/csv", "text/comma-separated-values,text/plain", ".csv")), 
      checkboxInput("header", "Header", TRUE),
      radioButtons("disp", "Display", choices=c(Head="head" , All="all" ), selected="head"), 
      
      tags$hr(), 
      radioButtons("dept", 
                   "Department", 
                   choices=c(Principal="Principal" , Teacher="Teacher" , Student="Student"
      dateRangeInput("dates", "Date Range"), 
      textInput("studentid",
                "StudentID", 
                value="Enter StudentID:" )
) ), 
                         
  mainPanel(tableOutput("contents") ) ) )
  
library(shiny) 
library(data.table) 
server <- function(input,output) { 
  data <- fread(input$file1$datapath, 
                header=input$header, 
                sep=",", 
                quote='"') 
  
  output$contents <- renderDataTable( 
  if(input$disp=="head" ){return(data))} 
  else {return(data)}
  ) 
} 
  
shinyApp(ui, server)

非常感谢！

Answer 1

您需要正确设置所有reactive 组件。

此外，如果您希望正确过滤数据，则需要在server 中对其进行操作。

以下是基于您的示例的工作脚本：

library(shiny) 
library(data.table)
library(dplyr)

ui <- fluidPage(
  titlePanel("Students"), 
  sidebarLayout( 
    sidebarPanel(
      fileInput("file1", 
                "Choose CSV File", 
                multiple=TRUE, 
                accept=c( "text/csv", "text/comma-separated-values,text/plain", ".csv")), 
      checkboxInput("header", "Header", TRUE),
      radioButtons("disp", "Display", choices=c(Head="head" , All="all" ), selected="head"), 

      tags$hr(), 
      radioButtons("dept", 
                   "Department", 
                   choices=c(Principal="Principal" , Teacher="Teacher" , Student= "Student")),
      dateRangeInput("dates", "Date Range"), 
      textInput("studentid", "StudentID", value="Enter StudentID:" )
    ),
    mainPanel(DT::dataTableOutput("contents"))
  )
)


server <- function(input,output) { 

  file <- reactive({

    if (input$header) {

      return(fread(input$file1$datapath, 
                   header= TRUE, 
                   sep=",", 
                   quote='"'))

    } else {

      return(fread(input$file1$datapath, 
                   header= FALSE, 
                   sep=",", 
                   quote='"'))
    }

  })

  file_head <- reactive({

    if(input$disp == "head") {

      return(head(file()))

    } else { return(file()) }

  })

  data_filtered <- reactive({

    if (input$dept == "Teacher") {

      return(file_head() %>% mutate_at(.vars = 1, funs(as.Date(strptime(., format = "%Y%m%d")))) %>%
        select_at(.vars = c(1:2, 4)) %>%
        filter_at(.vars = 1, any_vars(. >= input$dates[1] & . <= input$dates[2])))

    }

    else if (input$dept == "Student") {

      return(file_head() %>% mutate_at(.vars = 1, funs(as.Date(strptime(., format = "%Y%m%d")))) %>%
        select_at(.vars = c(1:3)) %>%
        filter_at(.vars = 1, any_vars(. >= input$dates[1] & . <= input$dates[2])))

    }

    else { 

      return(file_head() %>% mutate_at(.vars = 1, funs(as.Date(strptime(., format = "%Y%m%d")))) %>%
        filter_at(.vars = 1, any_vars(. >= input$dates[1] & . <= input$dates[2])))

    }

  })


  output$contents <- DT::renderDataTable({

    if (is.null(input$file1)) {

      return(NULL) } else { return(data_filtered() ) }

  })

}

shinyApp(ui, server)

我看到您还想为Student ID 输入文本。

由于您没有对此指定任何内容，因此我没有将其作为过滤器包含在内（您始终可以使用 Search 过滤 DT 本身），但如果您想继续，上面的示例应该可以帮助您入门朝着那个方向。