Question

我是R的新手，也许有人可以帮我解决有关闪亮问题的问题。

我想上传一个data.frame作为csv with shiny，之后我想通过一些计算更改data.frame，然后我想再次使用闪亮的应用程序下载data.frame。假设我有一个数据框：

x <- data.frame(value1=c(1:100), value2=c(101:200)) #data frame I uploaded
x$value2 <- x$value2/x$value1 # calculation
# then download it

在闪亮的图库的帮助下，我的代码到目前为止看起来像这样:(我只尝试上传csv并再次下载而不进行计算）：

ui.R：

library(shiny)
fluidPage(
  titlePanel("Uploading Files"),
  sidebarLayout(
    sidebarPanel(
      fileInput('file1', 'Choose CSV File',
                accept=c('text/csv', 
                         'text/comma-separated-values,text/plain', 
                         '.csv')),
      tags$hr(),
      checkboxInput('header', 'Header', TRUE),
      radioButtons('sep', 'Separator',
                   c(Comma=',',
                     Semicolon=';',
                     Tab='\t'),
                   ','),
      radioButtons('quote', 'Quote',
                   c(None='',
                     'Double Quote'='"',
                     'Single Quote'="'"),
                   '"'),
      downloadButton('downloadData', 'Download')
    ),
    mainPanel(
      tableOutput('contents')
    )
  )
)

server.R：

library(shiny)

function(input, output) {
  output$contents <- renderTable({

    inFile <- input$file1

    if (is.null(inFile))
      return(NULL)

    read.csv(inFile$datapath, header=input$header, sep=input$sep, 
             quote=input$quote)
  })

output$downloadData <- downloadHandler(
    filename = function() { 
      paste(input$file1, '.csv', sep='') 
    },
    content = function(file) {
      write.csv(file1, file)
    }
  )

}

我可以上传一个csv这没问题，但是下载不起作用，我没有参考上传的文件..

现在有人回答或者可以帮助我吗？也许这是一个愚蠢的错误，但我在五天前开始使用R，这对我来说都是新的。

非常感谢!!

Answer 1

以下适用于我：

UI

ui <- fluidPage(
  fluidPage(
    titlePanel("Uploading Files"),
    sidebarLayout(
      sidebarPanel(
        fileInput('file1', 'Choose CSV File',
                  accept=c('text/csv', 
                           'text/comma-separated-values,text/plain', 
                           '.csv')),
        tags$hr(),
        checkboxInput('header', 'Header', TRUE),
        radioButtons('sep', 'Separator',
                     c(Comma=',',
                       Semicolon=';',
                       Tab='\t'),
                     ','),
        radioButtons('quote', 'Quote',
                     c(None='',
                       'Double Quote'='"',
                       'Single Quote'="'"),
                     '"'),
        downloadButton('downloadData', 'Download')
      ),
      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)

      })

}

运行

shinyApp(ui, server)

正如您所看到的，我创建了一个反应对象来生成数据并保存它。使用read.csv时，不要将数据保存在代码中的任何位置。您只需读取数据并将其提供给renderTable，但数据不会保存在R中。实际上，您需要保存数据并将其提供给其他ouput$...函数。这就是reactive在这个场合所做的事情。保存文件并使其可用于其他输出功能。

有一个教程here

Answer 2

离开我的头顶，尝试save（）而不是粘贴

使用闪亮的包

2 个答案:

UI

服务器

运行