在同一张表R Shiny中下载带有多个数据集的Excel

Question

我正在创建一个闪亮的应用程序，我希望用户将闪亮的应用程序中的数据下载到同一个工作表中具有多个（多个）数据集的单个excel文件中。我查看了其他类似的问题，但我无法让我的代码使用该帮助。

使用的数据集：

sample <- structure(list(type = structure(c(1L, 5L, 3L, 5L, 2L, 4L), .Label = c("add select multiple prompt using alphaOptions", 
"add select multiple prompt using imageOptions", "add select one prompt using alphaOptions", 
"add select one prompt using imageOptions", "add select one prompt using numOptions"
), class = "factor"), name = structure(c(4L, 5L, 3L, 6L, 1L, 
2L), .Label = c("grid", "grid_two_columns", "quick_advance", 
"select", "select1", "spinner"), class = "factor"), caption = structure(c(4L, 
5L, 3L, 6L, 1L, 2L), .Label = c("grid widget", "grid with a maximum of two columns", 
"quick advance select widget", "select multiple widget", "select one widget", 
"spinner widget"), class = "factor"), hint = structure(c(4L, 
6L, 1L, 3L, 2L, 5L), .Label = c("click a choice to select it and advance to the next question", 
"click an image to select it (you must have the images on your sdcard to see them)", 
"click the button to provide a response", "don't pick c and d together", 
"regardless of screen size this widget will only show two columns of images", 
"scroll down to see default selection"), class = "factor")), .Names = c("type", 
"name", "caption", "hint"), class = "data.frame", row.names = c(NA, 
-6L))



profile <- structure(list(Company.Name = structure(c(1L, 3L, 4L, 2L, 5L), .Label = c("Address", 
"Assigned MB", "Contact Name", "Contact Phone", "Website"), class = "factor"), 
    ABC = structure(c(2L, 5L, 1L, 3L, 4L), .Label = c("(398) 657-8401", 
    "48,S  St, Denver, CO, 80233", "Bob Harris, Active", "www.abc.com", 
    "John Gardner"), class = "factor")), .Names = c("Company.Name", 
"ABC"), class = "data.frame", row.names = c(NA, -5L))

我有与csv个文件相同的数据。

以下是我的两张表格的Excel代码：

ui.R

shinyUI(pageWithSidebar(
  headerPanel('Download'),
  sidebarPanel(
    downloadButton('downloadData', 'Download')
  ),
  mainPanel(
  )
))

server.R

sample <- read.csv("sample.csv")
profile <- read.csv("profile.csv")

shinyServer(function(input, output) {

  output$downloadData <- downloadHandler(
    filename = "test.xlsx",
    content = function(file) {
      write.xlsx2(profile, file, sheetName = "Sheet1")
      write.xlsx2(sample, file, sheetName = "Sheet2", append = TRUE)
    }
  )
})

这是我尝试在同一张表中下载两个数据集。

shinyServer(function(input, output) {

  output$downloadData <- downloadHandler(
    filename = "test.xlsx",
    content = function(file) {
      write.xlsx2(profile, file, sheetName = "Sheet1")
      write.xlsx2(sample, file, sheetName = "Sheet1", append = TRUE)
    }
  )
})

这是我得到的错误：

Error : java.lang.IllegalArgumentException: The workbook already contains a sheet of this name
Warning: Error in .jcall: java.lang.IllegalArgumentException: The workbook already contains a sheet of this name
Stack trace (innermost first):

我希望profile和sample数据集在一个工作表中位于另一个下方，并且它们之间有一些空格，如下图所示：

Answer 1

我认为@Header不适用于给定的工作表，但您可以使用append()函数：

addDataFrame()