R - 闪亮 - 闪亮仪表板的导出不起作用 - rmarkdown

如何解决R - 闪亮 - 闪亮仪表板的导出不起作用 - rmarkdown

我创建了一个闪亮的仪表板，但无法导出为 pdf/image/html。

下面给出了我尝试过的脚本的简化版本和错误截图。

如果有人能帮助我实现这一目标，那就太好了。

library(shiny)
library(shinythemes)
library(DT)
library(rhandsontable)
library(tidyverse)
library(tidyquant)
library(knitr)
library(gt)
library(shinycssloaders)
library(shinydashboard)
library(shinyWidgets)
library(rmarkdown)



Table1 = data.frame(A = c(1:3),B = c(4:6))
Table2 = data.frame(C = c(7:9),B = c(10:12))
tab1selection = "Option 1"
tab2selection = "Option 3"

header = dashboardHeader(title = 'Title',titleWidth = 400)

sidebar = dashboardSidebar(
  
  width = 300,fluidRow(
    
    selectInput(inputId = 'dropdown1','Select an option',choices = c(''),selected = 1),conditionalPanel(condition = "input.tabselected == 'tab1'",radioButtons('format','Document format',c('PDF','HTML','Image'),inline = TRUE),align = "center",downloadButton('DownloadReport')
    ),conditionalPanel(condition = "input.tabselected != 'tab1'",fileInput("file","Choose xlsx file",accept = ".xlsx"))
    
  )
  
)


body <- dashboardBody(
  uIoUtput("mainpanel")
)

ui = dashboardPage(header,sidebar,body)

server = function(input,output,session) {
  
  ############
  
  
  output$DownloadReport <- downloadHandler(
    filename = function(dropdown1) {
      paste(input$,sep = '.',switch(
        input$format,PDF = 'pdf',HTML = 'html',Image = 'png'
      ))
    },content = function(file) {
      src <- normalizePath('report.Rmd')
      
      # temporarily switch to the temp dir,in case you do not have write
      # permission to the current working directory
      owd <- setwd(tempdir())
      on.exit(setwd(owd))
      file.copy(src,'report.Rmd',overwrite = TRUE)
      
      out <- render('report.Rmd',PDF = pdf_document(),HTML = html_document(),Image = png()
      ))
      file.rename(out,file)
    }
  )
  
  output$mainpanel = renderUI({
    
    if(is.null(input$file)) {return(
      
      fluidRow(  
        tabBox(width = 250,height = 100,tabPanel("Tab 1",value = 'tab1',DT::dataTableOutput("output1")%>% withSpinner(color="#3483CA",type = 1,size = 2)),tabPanel("Tab 2",value = 'tab2',DT::dataTableOutput("output2")%>% withSpinner(color="#3483CA",size = 2),downloadButton(outputId = "FFSassndownload",label = "Download Table")),id ="tabselected"
        )
      )
    )}
    
    else
      
      fluidRow(
        tabBox(width = 250,tabPanel("Tab 3",value = 'tab3',rHandsontableOutput("contents")%>% withSpinner(color="#3483CA",downloadButton(outputId = "Tabledownload",id ="tabselected"
        )
      )
  })
  
  
  ############
  
  choices = reactiveValues(
    tab1 = c('Option 1','Option 2'),tab2 = c('Option 3'),tab3 = c('Option 4')
  )
  
  observeEvent(input$tabselected,{
    updateSelectInput(session,'dropdown1',choices = choices[[input$tabselected]],selected = ifelse(input$tabselected == 'tab1',tab1selection,tab2selection))
  })
  
  observeEvent(input$dropdown1,{
    
    req(input$tabselected)
    
    if(input$tabselected == 'tab1') {tab1selection <<- input$dropdown1} else {tab2selection <<- input$dropdown1}
    
    if(input$tabselected == 'tab1') {output$output1 = DT::renderDataTable({datatable(Table1)})}
    
  })
  
  
  output$output2 =  DT::renderDataTable({
    datatable(Table2,options = list(scrollX = TRUE),list(paging = F),rownames = F,filter = "top") %>%
      formatRound(columns = c(1:2),digits = 2)
  })
  
  output$Tabledownload = downloadHandler(
    filename = "Tabledownload.xlsx",content = function(file) {write.xlsx(Table2,file)})
  
  
  indat <- reactiveValues(data=FFSassns)
  
  output$contents = 
    renderRHandsontable({
      file <- input$file
      ext <- tools::file_ext(file$datapath)
      req(file)
      validate(need(ext == "xlsx","Please upload an xlsx file"))
      data1 = openxlsx::read.xlsx(file$datapath,check.names=FALSE)
      indat$data <- data1
      rhandsontable(indat$data)
    })
  
}


shinyApp(ui = ui,server = server)

错误：

请注意：由于工作环境限制，我将无法下载任何 .exe 文件（如 Rtools）并安装在我的系统中。请建议是否还有其他替代解决方案可用。

谢谢...