Поместив диапазон дат в pdf в блестящем приложении

Question

У меня есть приложение, которое выглядит ниже: введите описание изображения здесь

Я хотел бы скачать данные в формате PDF с этим периодом времени. но когда я делаю это только таблица экспорта. введите описание изображения здесь

вот код ma ui.R:

library(shiny)
  jscode <- "shinyjs.closeWindow = function() { window.close(); }"


 shinyUI(fluidPage(   




  tags$head(
tags$style(HTML("
                @import url('//fonts.googleapis.com/css?family=Anton');

                h2 {
                font-family: 'Anton';
                font-weight: 600;
                line-height: 0.7;
                color: #483D8B;
                }

                "))
),


titlePanel("ZESTAWIENIE 1 v 2"),


sidebarLayout(

  sidebarPanel( tags$head(
    tags$style(type="text/css", ".well { width: 150px; }"),
  tags$style(type="text/css", ".col-sm-4 { width: 170px;}"),
# tags$style(type="text/css", "#close {font-size: 12px; background-color:  #e6e6e6; }") ,
 tags$style(type="text/css", "#get_data { font-size: 12px; background-color:  #e6e6e6;}") ,
  tags$style(type="text/css", "#last_month { font-size: 12px;background-color:  #e6e6e6; }") ,
  tags$style(type="text/css", ".control-label { line-height: 2 ; font-size: 12px;   }") ,
 tags$style(type="text/css", "#text { width: 390px ; font-size: 11px } "),
 tags$style(type="text/css", "#DataTables_Table_0 td[text*='SAL']{ background:#DCDCDC; }") 


     ),

           #  actionButton("close", "Zamknij raport" ,width = '100%' ),
             actionButton("get_data", "Generuj report" ,width =  '100%' ),
             actionButton("last_month", "Ostatni miesiÄ…c", width = '100%' ),
             dateInput('start_date', "Data poczÄ…tkowa", min = '2017-11-01', value= format(Sys.Date()-1, "%Y-%m-01")),
             dateInput('end_date', "Data końcowa", min = '2017-11-01' ,value=   format(Sys.Date()-1, "%Y-%m-%d"))







),


 mainPanel(tags$head(
  tags$style(type="text/css", ".col-sm-8 { width: 89%; }")
 ),


  div(
    verbatimTextOutput("text"), DT::dataTableOutput("results"), style = "font-size:80%" ),



tabsetPanel(
  tabPanel(
           HTML('<footer>
               <h6> kontakt: kk </h6>
                </footer>')

  ))





) 



)





 ))

куда я положу verbatimTextOutput("текст"), который отвечает за показ диапазона дат, чтобы иметь эту дату, если PDF после загрузки?

Answer 1

Ты можешь использовать caption

library(shiny)
library(DT)
ui <- fluidPage(
      dateRangeInput("daterange1", "Date range:",
             start = "2001-01-01",
             end   = "2010-12-31"),
      DT::dataTableOutput('table')
) 

server <- function(input, output, session) {

   output$table <- renderDataTable(
      head(iris),
      caption = paste("Report Data:", input$daterange1[1], "to", input$daterange1[2] ),extensions = 'Buttons', options = list(
  dom = 'Bfrtip',
  buttons = c('pdf')
))
}

shinyApp(ui, server)