基于R Shiny开发CSV输入并调用自定义函数f的应用需求

Got it, let's build out your Shiny app to not only upload and display CSV data but also process it with your custom function f() and let users download the processed results as a CSV. Below is the full working code, plus breakdowns of the key additions:

Step 1: Define Your Custom Function f() #

First, let's include a sample version of your function (you can replace this with your actual pre-implemented logic). For example, this function adds a new column with row sums and filters rows where the sum is greater than 10:

# Example custom function - replace this with your actual function f()
f <- function(input_data) {
  # Add your processing logic here
  input_data$row_sum <- rowSums(input_data[, sapply(input_data, is.numeric)], na.rm = TRUE)
  processed_data <- input_data[input_data$row_sum > 10, ]
  return(processed_data)
}

Step 2: Updated ui.R #

We'll add a download button to let users export the processed data. I've placed it in the sidebar panel for clarity, but you can move it to the main panel if preferred:

library(shiny)

shinyUI(fluidPage(
  titlePanel("CSV Processor with Custom Function"),
  sidebarLayout(
    sidebarPanel(
      fileInput("file", "Upload Your CSV File", accept = c(".csv")),
      # Add download button - disabled until data is uploaded
      downloadButton("download_processed", "Download Processed CSV", disabled = TRUE)
    ),
    mainPanel(
      h4("Uploaded Raw Data"),
      tableOutput("raw_table"),
      h4("Processed Data (via Function f())"),
      tableOutput("processed_table")
    )
  )
))

Step 3: Updated server.R #

Here's where we integrate the custom function and handle the download. Key additions:

• A reactive expression for processed data (calls f() on the uploaded data)
• A downloadHandler to generate the CSV output
• Enable the download button only when data is available

library(shiny)

# Include your custom function f() here (or source it from another file)
f <- function(input_data) {
  input_data$row_sum <- rowSums(input_data[, sapply(input_data, is.numeric)], na.rm = TRUE)
  processed_data <- input_data[input_data$row_sum > 10, ]
  return(processed_data)
}

shinyServer(function(input, output, session) {
  # Reactive for raw uploaded data
  raw_data <- reactive({
    file1 <- input$file
    if(is.null(file1)){return(NULL)}
    # Use read.csv instead of read.csv2 if your CSV uses comma separators
    # Adjust based on your file's delimiter!
    read.csv(file = file1$datapath, stringsAsFactors = FALSE)
  })
  
  # Reactive for processed data (applies function f())
  processed_data <- reactive({
    if(is.null(raw_data())){return(NULL)}
    f(raw_data())
  })
  
  # Render raw data table
  output$raw_table <- renderTable({
    raw_data()
  })
  
  # Render processed data table
  output$processed_table <- renderTable({
    processed_data()
  })
  
  # Enable download button when processed data exists
  observe({
    toggleState("download_processed", condition = !is.null(processed_data()))
  })
  
  # Handle CSV download
  output$download_processed <- downloadHandler(
    filename = function() {
      paste0("processed_", Sys.Date(), ".csv")
    },
    content = function(file) {
      write.csv(processed_data(), file, row.names = FALSE)
    }
  )
})

Key Notes for Customization: #

• Delimiter Adjustment: If your CSV uses semicolons instead of commas, replace read.csv with read.csv2 in the raw_data reactive.
• Custom Function: Replace the sample f() with your actual pre-implemented function. Make sure it accepts a data frame as input and returns a data frame (since we're writing it to CSV).
• Download Filename: Modify the filename function in downloadHandler to use a name that makes sense for your use case.

内容的提问来源于stack exchange，提问作者momo96