Shiny App中的数据清理操作按钮不起作用

Question

当我按下“清理”操作按钮时，我的代码能够上传 csv/文本文件，但无法清理数据。我不确定是什么问题，当我在数据表和数据框表单中尝试时都不起作用。我的代码的目的是让用户：

1. 上传文件
2. 按 clean 清除数据
3. 下载清理后的文件

我们将不胜感激！

数据表形式：

library(data.table)
library(DT)
runApp(shinyApp(

  ui=(fluidPage(
  titlePanel("Clean your data!"),

  mainPanel(
    fileInput("file", "Upload file"),
    actionButton("Go", "Clean!"),

    DT::dataTableOutput("df_data_out"),
    downloadButton("downloadData","Download")
  )
)),
server <- function(input, output){
  myData <- reactive({
    inFile <- input$file
    if (is.null(inFile)) return(NULL)
    data <- read.csv(inFile$datapath, header = TRUE)
    data <- as.data.table(data)
  })
  eventReactive(input$Go, {
    dt <- myData()
    dt <- as.data.table(dt)
    dt1 <- dt[, splitletter:=substr(DocRef,1,1)]
    dt2 <- dt1[splitletter == "B" | splitletter == "I"]
    dt3 <- dt2[DocDate <= 20171231 & DocDate >= 20160101]
    dt3 <- dt3[AcCurWTaxAmt>0 & HomeWTaxAmt<0, 
    HomeWTaxAmt:=abs(HomeWTaxAmt)]
    dt3 <- dt3[AcCurWTaxAmt<0 & HomeWTaxAmt>0, HomeWTaxAmt:=HomeWTaxAmt* 
(-1)]
    dt3 <- dt3[AcCurWTaxAmt==0 & HomeWTaxAmt!=0, HomeWTaxAmt:=0]
    dt3 <- dt3[AcCurWTaxAmt!=0 & HomeWTaxAmt==0, HomeWTaxAmt:=NA]
    dt4 <- na.omit(dt3)
    dt4 <- dt4[, AcCrAmt := AcCrIsMinus1 * AcCurWTaxAmt]
    dt4 <- dt4[, splitletter:= NULL]
  })
  output$df_data_out <- DT::renderDataTable({
    DT::datatable(myData())})
  output$downloadData <- downloadHandler(

    filename = function() { 
      paste("data-", Sys.Date(), ".csv", sep="")
    },
    content = function(file) {
      write.csv(myData(), file)
    })

}))

数据框形式：

runApp(shinyApp(
  ui=(fluidPage(
    titlePanel("Clean your data!"),

    mainPanel(
      fileInput("file", "Upload file"),
      actionButton("Go", "Clean!"),

      tableOutput("df_data_out"),
      downloadButton("downloadData","Download")
    )
  )),
  server <- function(input, output){
    myData <- reactive({
      inFile <- input$file
      if (is.null(inFile)) return(NULL)
      df_data <- read.csv(inFile$datapath, header = TRUE)
      df_data <- as.data.frame(df_data)
    })     
    eventReactive(input$Go, {
      dt <- myData()
      dt <- as.data.frame(data)
      dt1[, splitletter] <- substr(dt$DocRef,1,1)
      dt2 <- (dt1$splitletter == "B" | dt1$splitletter == "I")
      dt3 <- (dt2$DocDate <= 20171231 & dt2$DocDate >= 20160101)
      while(dt3$AcCurWTaxAmt>0 & dt$HomeWTaxAmt<0){
        dt3$HomeWTaxAmt <- abs(dt3$HomeWTaxAmt)   
      }
      while(dt3$AcCurWTaxAmt<0 & HomeWTaxAmt>0){
        dt3$HomeWTaxAmt <- dt3$HomeWTaxAmt*(-1)
      }
      while(dt3$AcCurWTaxAmt==0 & HomeWTaxAmt!=0){
        dt3$HomeWTaxAmt <- 0
      } 
      while(dt3$AcCurWTaxAmt!=0 & HomeWTaxAmt==0){
        dt3$HomeWTaxAmt<- NA
      } 
      dt3 <- na.omit(dt3)
      dt3[,AcCrAmt] <- dt3$AcCrIsMinus1 * dt3$HomeWTaxAmt
      dt3$splitletter <- NULL
    })

   output$df_data_out <- renderTable({
     myData()
   })
   output$downloadData <- downloadHandler(

      filename = function() { 
        paste("data-", Sys.Date(), ".csv", sep="")
      },
      content = function(file) {
        write.csv(myData(), file)
      })
}))

Answer 1

下面是一个工作示例。使用CSV 作为输入的东西很难复制，因为我们不知道你在其中插入了什么。此外，您在 eventReactive 中按名称引用列，因此我假设您总是将其传递给特定的 CSV。

eventReactive 是一个反应函数，只是它需要一个触发它的表达式。因此，它返回一个反应式表达式，就像reactive。您正在尝试像 observeEvent 一样使用 eventReactive。

当人们单击按钮时，eventReactive 被触发并返回一个您不使用的 reactive。 reactiveexpression 对象 myData 保持不变。如果您没有在任何输出中使用eventReactive 的输出（即：output$df_data_out），那么反应永远不会运行...

另请注意，您的reactive 表达式没有明确的return。

library(shiny)

ui <- fluidPage(
  selectInput("select", "select data", choices = c("cars", "iris")),
  actionButton("clean", "Clean data"),
  fluidRow(
    column(6, tableOutput("original")),
    column(6, tableOutput("cleaned"))
  )
)

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

  orig_data <- reactive({
    if(input$select == "cars")
      return(cars)
    else
      return(iris)
  })

  cleaned_data <- eventReactive(input$clean, {
    orig_data() %>% 
      head(5)
  })

  output$original <- renderTable({
    orig_data()
  })

  output$cleaned <- renderTable({
    cleaned_data()
  })

}

shinyApp(ui, server)