Question

我制作了以下脚本以显示1.pdf，但点击start后没有显示任何内容。

任何评论都会很棒。

欣赏！

shinyApp(
  ui <- function(){
    tagList(tabPanel(""),
            pageWithSidebar(
              headerPanel(
                ""
              ),
              sidebarPanel
              (
              tags$head(tags$style(type="text/css", ".well { max-width: 280px; }")),
              actionButton("strt", label = "Start",style="width:32%;"),
              actionButton("logout", "Logout",style="color: red; width:32%;")       
              ),
              mainPanel(tableOutput('path'))
            )
    )   
  },

  server = (function(input, output,session) {
    observeEvent(input$strt, {
      output$path <- renderUI({tags$iframe(src="E:/shiny/Correct/www/1.pdf",style="height:800px; width:100%;scrolling=yes")})   
    })
  })
)

Answer 1

我解决了它如下：

observeEvent(input$strt, {
    addResourcePath("pdf_folder","E:/shiny/Correct")
    output$path <- renderUI({tags$iframe(src="pdf_folder/1.pdf",style="height:800px; width:100%;scrolling=yes")})
})

闪亮应用程序中的PDF - 没有出现

1 个答案: