相关疑难解决方法(0)

我想将我闪亮的应用程序生成的表格和条形图下载为pdf报告。第一次在本地计算机上启动应用程序时，我可以使用选定的输入生成报告，但是当我切换输入时，它不会在pdf上生成新输入的报告。

这是我的用户界面代码

require(shiny)
require(shinydashboard)
require(ggplot2)
require(ggthemes)

sample <- read.csv("new_sample2.csv", stringsAsFactors = FALSE)

header <- dashboardHeader(title = "XYZ School Student Dashboard", titleWidth = 370)

body <- dashboardBody(
tags$head(tags$style(HTML('
  .main-header .logo {
                        font-family: "Georgia", Times, "Times New Roman", serif;
                        font-weight: bold;
                        font-size: 20px;
                        }
                        '))),
fluidRow(
column(width = 9,
box(title = "Selected Student", width = NULL, solidHeader = TRUE, status = "info",
           textOutput("summary1"),
           textOutput("summary2"),
           textOutput("summary3")
),

       box(title = "Marks card", status = "info", width = NULL, solidHeader = TRUE, collapsible = TRUE, …