Shiny 在文件上载菜单上加载示例数据

我需要在checkboxInput的帮助下在文件上载菜单（fileInput）上加载一个示例数据。如果选择了用户示例框，则必须将一些数据加载到fileInput中，这是如何实现的

 library(shiny)
 library(shinyjs) 
 ui <- fluidPage(
 useShinyjs(),
 fileInput('inFile', 'Choose file'),
 checkboxInput(inputId = "Load",label = strong("Load Example Data"),value = FALSE,width    ='100%'),
 actionButton('reset', 'Reset'),
 tableOutput('tbl')) 
 server <- function(input, output, session) {
 rv <- reactiveValues(data = NULL)
 observe({
 req(input$inFile)
 rv$data <- read.csv(input$inFile$datapath)})
 observeEvent(input$reset, {
 rv$data <- NULL
 reset('inFile')})
 output$tbl <- renderTable({
 rv$data})}
 shinyApp(ui, server)

库（闪亮）
图书馆（shinyjs）
用户界面