R UseMethod（“xtable”中的错误）

我正在尝试加载多个文件和合并使用减少功能。。。 尝试了几个选项，但得到了相同的错误 已将“xtable”应用于“character”类的对象

服务器.R

library(shiny)

shinyServer(function(input,output) {
    output$data <- renderUI({
        res <- lapply(
            1:input$fnos,
            function(i) {
                fileInput(paste("file", i),
                "Load File",
                accept=c(
                    'text/csv',
                    'text/comma-separated-values',
                    'text/tab-separated-values',
                    'text/plain','.csv','.tsv' ))}
        )
        do.call(sidebarPanel,res)   
    })

    output$multi <- renderTable({
        infile <- list(
            lapply(1:input$fnos, function(i) {input[[paste("file",i)]]})
        )[[1]]

        # for data frame names
        df <- (LETTERS[1:input$fnos])

        # trying to use assign function to create
        # different dataframes using read.csv
        for (i in 1:input$fnos) {assign(df[i], read.csv(infile[[c(i,4)]]))}

        #merging using Reduce function
        merged <- Reduce(function(x,y) merge(x,y), list(df))
        # getting error here
    }) 
})

---

你只是减少了一件错误的事情。假设您只有两个文件“file1.csv”、“file2.csv”，但它也可以处理更多的文件：

> write.csv(structure(list(id = 1:3, x = 4:6), .Names = c("x", "y"), class = "data.frame", row.names = c(NA, -3L)), 'file1.csv', row.names=FALSE)
> write.csv(structure(list(id = 1:2, y = 9:10), .Names = c("x", "z"), class = "data.frame", row.names = c(NA, -2L)), 'file2.csv', row.names=FALSE)
> dfs <- lapply(list.files(pattern="file[1-2]\\.csv$"), read.csv)
> dfs
[[1]]
  x y
1 1 4
2 2 5
3 3 6

[[2]]
  x  z
1 1  9
2 2 10

或者更简单的

do.call

：

> do.call(merge, dfs)
  x y  z
1 1 4  9
2 2 5 10

如果你想将其翻译成你的应用程序，你可以使用如下内容：

Reduce(
    merge, lapply(
        paste('file', 1:input$fnos),
        function(x) read.csv(input[[x]]$datapath)
))

只要记住检查输入是否已设置

列出数据框--

库（闪亮）
shinyServer（功能（输入、输出）
{
输出$data谢谢你的回复..list.file函数在fileInput中不起作用在shiny中..我试着给你举个例子..但不起作用..没关系.你的问题与shiny无关.你只是减少了一个错误的东西.谢谢你的解释…列出数据框非常有用…我在这里发布代码。。
> do.call(merge, dfs)
  x y  z
1 1 4  9
2 2 5 10

Reduce(
    merge, lapply(
        paste('file', 1:input$fnos),
        function(x) read.csv(input[[x]]$datapath)
))

library(shiny)
shinyServer(function(input,output)
{
  output$data <- 
    renderUI({
      res <- lapply(1:input$fnos, function(i) {fileInput(paste("file",i),"Load File",accept =c('text/csv',
              'text/comma-separated-values',
              'text/tab-separated-values',
              'text/plain','.csv','.tsv' ))})
      do.call(sidebarPanel,res)   
    })

  output$multi <- renderTable({
    infile <- list(lapply(1:input$fnos, function(i) {input[[paste("file",i)]]}))[[1]]
    mm = list()
    for (i in 1:input$fnos) 
      {
        mm[[i]] <- read.csv(infile[[c(i,4)]])
      }
    merged <- Reduce(merge, lapply(1:input$fnos, function(i) list(mm[[i]])))
  }) 
})