使用 R shiny 上传后编辑数据框

Question

我构建了一个闪亮的应用程序，它接受用户上传的 CSV 文件并向其中添加 headers 和几个新列，以便之后进行一些计算。

上传的 CSV 文件包含 2 列，如下所示：

要上传文件，我使用此代码（有效）：

data1<- reactive({
    inFile <- input$file1
    if(is.null(inFile)){return()}
    data1<- read.csv(file=inFile$datapath,header =input$header,sep=input$sep)
})

下一步是将 headers 添加到这两列并以这种方式再添加两列：

Dose  Response SquareRoot    Log  
1     0.21     sq(Response)  log(Response)
1     0.20     ...           ...
1     0.23     ...           ...
2     0.40     ...           ...
2     0.42     ...           ...
2 ...

在 R session 中，我将使用的代码是这样的：

  data1<- read.csv(file=inFile$datapath,header =input$header,sep=input$sep)
  colnames(data1) <-c("Dose","Response")
  data1$ResponseLog <- log10(data1$Response + 1)
  data1$ResponseSqRoot <- sqrt(data1$Response + 1)

如果我在闪亮的情况下将这些行添加到我的 Rshiny 应用程序中，它将无法工作并给我错误： 错误：长度为 0 的参数，即使我只是使用 colnames().

定义列名

所以我的问题是，有没有办法编辑我刚刚上传的数据框？我已经问过这个问题了，你能不能把我重定向到那里，因为我找不到解决方案。我希望我给了你足够的细节来理解这个问题。

Answer 1

希望这有帮助：我也添加了一个按钮

rm(list = ls())
library(shiny)

ui = fluidPage(
    sidebarPanel(
      fileInput('file1', 'Choose file to upload',accept = c('text/csv','text/comma-separated-values','text/tab-separated-values','text/plain','.csv','.tsv')),
      checkboxInput('header', 'Header', TRUE),
      radioButtons('sep', 'Separator',c(Comma=',',Semicolon=';',Tab='\t'),'Comma'),
      radioButtons('quote', 'Quote',c(None='','Double Quote'='"','Single Quote'="'"),'Double Quote'),
      actionButton("Load", "Load the File"),width = 3),
    mainPanel(tableOutput("my_output_data"))
)

server = function(input, output) {

  data1 <- reactive({
    if(input$Load == 0){return()}
    inFile <- input$file1
    if (is.null(inFile)){return(NULL)}

    isolate({ 
    input$Load
    my_data <- read.csv(inFile$datapath, header = input$header,sep = input$sep, quote = input$quote,stringsAsFactors =FALSE)
    colnames(my_data) <-c("Dose","Response")
    my_data$ResponseLog <- log10(my_data$Response + 1)
    my_data$ResponseSqRoot <- sqrt(my_data$Response + 1)
    })
    my_data
  })
  output$my_output_data <- renderTable({data1()},include.rownames=FALSE)  

}
runApp(list(ui = ui, server = server))

使用 R shiny 上传后编辑数据框

Edit data frame after upload with R shiny

r

edit

import-from-csv

shiny