2

我一般是编码新手，目前正在为我的应用程序制作 R 闪亮的应用程序。它的目的是

  1. 上传csv文件
  2. 有多个复选框。如果勾选，数据会经过相应的脚本。
  3. 导出新数据

我已经看过教程，但我目前在反应方面遇到了一些困难。我也尝试浏览其他问题，但由于我不熟悉编码，我发现很难从他们的示例中选择我需要的内容。

我目前完成了正确的导入和导出功能并为正文编写了脚本。但是，我不确定如何将这个“主体”合并到服务器端。

这是“身体”之一，没有考虑到 Shiny：

file1 <- file1[ grep("REVERSE", file1[,c(1)], fixed = FALSE, invert = TRUE),]

Ui 在某处

...  fileInput('file1'
....  checkboxInput(inputId = "rmDecoy",
                      label = "Remove Decoy Entry",
                      value = TRUE
        ),
....  mainPanel(
        tableOutput('contents')

虽然这是我到目前为止编写的服务器端，但只有导出功能：

server <- function(input, output) {
  getData <- reactive({
    inFile <- input$file1
    if (is.null(input$file1))
      return(NULL)
    read.csv(inFile$datapath, header=input$header, sep=input$sep, 
             quote=input$quote)
  })

  output$contents <- renderTable(
    getData()
  )

  output$downloadData <- downloadHandler(
    filename = function() { 
      paste("data-", Sys.Date(), ".csv", sep="")
    },
    content = function(file) {
      write.csv(getData(), file)
    })
}

当我这样做的时候它有点工作，output$rmDecoy但是当我把它和下载数据功能放在一起时，它就停止了。

因此，我的问题是

  1. 我的理解是，您并没有尝试直接更改输入。相反，您正在渲染新表、更改它并导出它。我了解 R 闪亮的原理吗？
  2. 您将如何将上面的脚本合并到服务器中？

谢谢您的帮助。

4

1 回答 1

3

一个稍微精简的工作示例如下所示。请注意，我file1 <- file1[ grep("REVERSE", file1[,c(1)], fixed = FALSE, invert = TRUE),]只取前两行替换了您的数据操作步骤。如果您在其他地方从不需要应用程序中未处理的数据，您也可以将此步骤移入getData并仅使用一个。reactive

希望这可以帮助！

library(shiny)

ui <- fluidPage(
  fileInput('file1','file1'),
  tableOutput('table_to_show'),
  downloadButton('downloadData', label = "Download")
)          

server <- function(input, output) {
  getData <- reactive({
    inFile <- input$file1
    if (is.null(input$file1))
      return(NULL)
    read.csv(inFile$datapath)
  })

  contents <- reactive({
    dat<- getData()
    print(dat)
    # manipulations to uploaded data here.
    dat <- dat[1:2,]
  })

  output$table_to_show <- renderTable(
  contents()
  )

  output$downloadData <- downloadHandler(
    filename = function() { 
      paste("data-", Sys.Date(), ".csv", sep="")
    },
    content = function(file) {
      write.csv(contents(), file)
    })
}
shinyApp(ui,server)
于 2018-04-17T05:38:28.387 回答