Question

我是Shiny的新手（与R一起工作了几个月），我试图弄清楚处理多个上载文件的“发光”方式是什么。

我的目标是拥有一个用户可以上传多个文件的界面。从这些文件中必须以大量图形和图表的形式生成报告。从我在Shiny教程中学到的知识来看，在服务器端，所有对象都是彼此隔离的（这意味着它们不能被读取，除非您显式调用另一个函数）。

正如您在下面的代码中看到的那样，这意味着我必须为每个绘图重复处理代码。这似乎效率低下。处理此问题的“发光”方式是什么？

此外，我遗漏了一些示例中并非绝对必要的代码。本质上，我需要做更多的处理，而且我不想为每个图重复所有代码。

我要特别询问服务器端代码。我想读取包含不同内容的多个文件。服务器端代码中的操作只是占位符，我实际上不想绑定任何东西，但我放在那里以保持此代码简单。我希望能够对导入的数据框做任何我想做的事情。

library(shiny)

# Define UI for application
ui <- fluidPage(

    # Sidebar with file input
    sidebarLayout(
        sidebarPanel(
            fileInput("people", NULL, multiple = FALSE, accept = ".csv",
                      buttonLabel = "Browse...", placeholder = "people file"),
            fileInput("info", NULL, multiple = FALSE, accept = ".csv",
                      buttonLabel = "Browse...", placeholder = "info file"),
        ),

        # Show the results of the data processing
       mainPanel(
           imageOutput("plot"),
           tableOutput("base_data")
        )
    )
)

# Define server logic required to process the data
server <- function(input, output) {

    output$base_data <- renderTable({
        if(is.null(input$people) | is.null(input$info)) {
        } else {
            people_file <- input$people
            info_file <- input$info

            people <- read.csv(people_file$datapath, stringsAsFactors = F, encoding = "UTF-8-BOM")
            info <- read.csv(info_file$datapath, stringsAsFactors = F, fileEncoding = "UTF-8-BOM")

            rbind(people, info)
        }
    })

    output$plot <- renderImage({

        if(is.null(input$people) | is.null(input$info)) {
            outfile <- tempfile(fileext='.png')
            png(outfile, width = 1200, height = 800, res = 200)
            dev.off()

            list(src = outfile, width = 1200, height = 800)
        } else {
            people_file <- input$people
            info_file <- input$info

            people <- read.csv(people_file$datapath, stringsAsFactors = F, encoding = "UTF-8-BOM")
            info <- read.csv(info_file$datapath, stringsAsFactors = F, fileEncoding = "UTF-8-BOM")

            outfile <- tempfile(fileext='.png')
            png(outfile, width = 1200, height = 800, res = 200)
            plot(nrow(people), nrow(info), type="b")
            dev.off()

            list(src = outfile, width = 1200, height = 800, alt = "questions"))
        }
    }, deleteFile = TRUE)
}

# Run the application 
shinyApp(ui = ui, server = server)

这是我想要的伪代码示例：

[[ui]]

fileInput("people")
fileInput("info")

show(plot)
show(plot2)
show(df)


[[serverside]]

files <- source(input) {
  people <- read.csv(input$people, stringsAsFactors = F, encoding = "UTF-8-BOM")
  info <- read.csv(input$info, stringsAsFactors = F, encoding = "UTF-8-BOM")
}

contents <- plot(output) {
  some_function(files$people, files$info)
  plot(contents)
}

contents2 <- plot(output) {
  some_other_function(files$people, files$info)
  plot2 <- plot(contents2)
}

df <- table(output) {
  cbind(files$people, files$info)
}

这是我现在拥有的伪代码，效率不高。

[[ui]]

fileInput("people")
fileInput("info")

show(plot)
show(plot2)
show(df)


[[serverside]]

contents <- plot(input, output) {
  people <- read.csv(input$people, stringsAsFactors = F, encoding = "UTF-8-BOM")
  info <- read.csv(input$info, stringsAsFactors = F, encoding = "UTF-8-BOM")
  contents <- some_function(people, info)
  plot(contents)
} 

contents2 <- plot(input, output) {
  people <- read.csv(input$people, stringsAsFactors = F, encoding = "UTF-8-BOM")
  info <- read.csv(input$info, stringsAsFactors = F, encoding = "UTF-8-BOM")
  contents <- some_other_function(people,info)
  plot(contents)
}

df <- table(input, output) {
  people <- read.csv(input$people, stringsAsFactors = F, encoding = "UTF-8-BOM")
  info <- read.csv(input$info, stringsAsFactors = F, encoding = "UTF-8-BOM")
  cbind(people, info)

}

Answer 1

我将不得不同意heds1，这很难获得您想要的结果。由于我们无权访问您的csv，因此我创建了一些虚拟的。

可复制数据/ csv：

write.csv2(x = 1:5, file = "people.csv", row.names = FALSE)
write.csv2(x = 6:10, file = "people2.csv", row.names = FALSE)

如果我对您的理解正确，则希望避免为每个上传的文件重复该代码。为了遍历您的文件/数据集，我们必须将它们收集在一个数据结构中。

一种方法是允许上传多个文件：

fileInput(..., multiple = TRUE)

用户端：

您可以在renderUI()中用循环创建的ui端：

output$plots <- renderUI({
  lapply(paste("people", 1:length(data)), plotOutput)
})

服务器端：

您可以通过循环创建的服务器端：

output[[paste("people", nr)]] <- renderPlot({
          plot(plotData)
})

本地分配

最后，您将不得不使用local()来避免只获取循环最后一次迭代的数据：

      local({
        LOCAL_VARIABLE <- data[[nr]]
        ....
      })

完整的示例：

library(shiny)

write.csv2(x = 1:5, file = "people.csv", row.names = FALSE)
write.csv2(x = 6:10, file = "people2.csv", row.names = FALSE)

ui <- fluidPage(
  fileInput(inputId = "people", label = NULL, accept = ".csv",
            buttonLabel = "Browse...", placeholder = "people file", multiple = TRUE),
  uiOutput("plots")
)

server <- function(input, output, session) {
  observeEvent(input$people, {
    data <- lapply(input$people$datapath, read.csv2)    

    for(nr in 1:length(data)){
      local({
        plotData <- data[[nr]]
        output[[paste("people", nr)]] <- renderPlot({
          plot(plotData)
        })
      })
    }

    output$plots <- renderUI({
      lapply(paste("people", 1:length(data)), plotOutput)
    })
  })

}

shinyApp(ui, server)

编辑：

重复使用导入的（和转换的）数据：

library(shiny)

write.csv2(x = 1:5, file = "people.csv", row.names = FALSE)

ui <- fluidPage(
  fileInput(inputId = "people", label = NULL, accept = ".csv",
            buttonLabel = "Browse...", placeholder = "people file", multiple = FALSE),
  plotOutput("plot"),
  tableOutput("table"),
  verbatimTextOutput("text")
)

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

  observeEvent(input$people, {
    data <- read.csv2(input$people$datapath)
    # DO LOTS OF OPERATIONS ON data

    global$data <- data
    # FROM HERE ON USE: global$data
  })

  output$plot <- renderPlot({
    req(global$data)
    plot(global$data)
  })

  output$table <- renderTable({
    global$data
  })

  output$text <- renderText({
    toString(global$data)
  })

}

shinyApp(ui, server)

从Shiny上传的文件中生成多个图形/图表

1 个答案: