r语言 - 需要将 Excel 文件上传到 Shiny 并保存在 S3 中

Question

我需要将一个 excel 文件上传到我的 Shiny 应用程序中，然后将该文件保存到 S3 中。

问题是我需要保留的 Excel 文件中有多个工作表。

当我将文件上传到 Shiny 时，它只允许我一次上传一张纸。当我将此工作表保存到 S3 中时，我丢失了所有格式和公式。只会保存一个仅包含值的工作表，就像.csv或 R 数据框一样。

我想知道是否有任何解决方法？任何帮助将不胜感激。

Answer 1

试试这个：

library(shiny)
# Define UI for data upload app ----
ui <- fluidPage(
# App title ----
titlePanel("Uploading Files"),
# Sidebar layout with input and output definitions ----
sidebarLayout(
# Sidebar panel for inputs ----
sidebarPanel(
# Input: Select a file ----
fileInput("file1", "Choose CSV File",
multiple = TRUE,
accept = c("text/csv",
"text/comma-separated-values,text/plain",
".csv")),
# Horizontal line ----
tags$hr(),
# Input: Checkbox if file has header ----
checkboxInput("header", "Header", TRUE),
# Input: Select separator ----
radioButtons("sep", "Separator",
choices = c(Comma = ",",
Semicolon = ";",
Tab = "t"),
selected = ","),
# Input: Select quotes ----
radioButtons("quote", "Quote",
choices = c(None = "",
"Double Quote" = '"',
"Single Quote" = "'"),
selected = '"'),
# Horizontal line ----
tags$hr(),
# Input: Select number of rows to display ----
radioButtons("disp", "Display",
choices = c(Head = "head",
All = "all"),
selected = "head")
),
# Main panel for displaying outputs ----
mainPanel(
# Output: Data file ----
tableOutput("contents")
)
)
)
# Define server logic to read selected file ----
server <- function(input, output) {
output$contents <- renderTable({
# input$file1 will be NULL initially. After the user selects
# and uploads a file, head of that data file by default,
# or all rows if selected, will be shown.
req(input$file1)
df <- read.csv(input$file1$datapath,
header = input$header,
sep = input$sep,
quote = input$quote)
if(input$disp == "head") {
return(head(df))
}
else {
return(df)
}
})
}
# Run the app ----
shinyApp(ui, server)

或。。。这。。。

library(shiny)
library(readxl)
ui <- fluidPage(
fileInput('file1', 'Insert File', accept = c(".xlsx")),
textInput('file1sheet','Name of Sheet (Case-Sensitive)'),
tableOutput("value")
)
server <- function(input, output) {
sheets_name <- reactive({
if (!is.null(input$file1)) {
return(excel_sheets(path = input$file1$datapath))  
} else {
return(NULL)
}
})
output$value <- renderTable({
if (!is.null(input$file1) && 
(input$file1sheet %in% sheets_name())) {
return(read_excel(input$file1$datapath, 
sheet = input$file1sheet))
} else {
return(NULL)
}
})
}
shinyApp(ui, server)