r - 创建一个可以上传和读取 pdf 文件的闪亮应用程序

Question

我正在尝试创建一个 Shiny 应用程序，允许用户上传 PDF 并在应用程序中查看该 pdf。我已经创建代码来构建这个应用程序，它可以工作，但上传的文件没有出现在应用程序中。请在下面查看我的代码并帮助我了解我缺少的内容。谢谢

library(pdftools)
library(shiny)

# Define UI for application 
ui <- fluidPage(
   
   # Application title
   titlePanel("Upload file"),
   
   sidebarLayout(
     sidebarPanel(
       fileInput('file1', 'Upload PDF file', accept = c('.pdf'))
             #multiple = TRUE,
             #accept = c("pdf",
                        #".pdf")),
     ),
     
    mainPanel(
      
      uiOutput("pdfview")
      
      )
   )
)


# Define server logic required
server <- function(input, output) {
  
  
    mypdf<-reactive({
      req(input$file1)
      
      inFile <- input$file1$datapath
      
      if (is.null(inFile)){
      return(NULL)
      }else{
        return(paste(inFile))
        

        
      }
      
    })
}

# Run the application 
shinyApp(ui = ui, server = server)

标签： rshiny