ShinyApp 不在 R 中渲染绘图

Question

我在 Shiny 上渲染任何可视化时遇到问题。我尝试了许多不同的情节，但都没有奏效。代码如下：

library(shiny)

ui <- fluidPage("Comex", 
                selectInput("paises","Selecione o Destino da Exportação",PAISES$NO_PAIS, selected = PAISES$NO_PAIS[55]),
                plotlyOutput(outputId = "table"))

server <- function(input, output){
  output$table <- renderTable({
    p <- RPostgres::dbGetQuery(con, paste0("SELECT CO_ANO, NO_PAIS, SUM(VL_FOB) 
                                        FROM comex 
                                        INNER JOIN paises ON comex.CO_PAIS = paises.CO_PAIS 
                                        WHERE (SG_UF_MUN = 'AL') AND (NO_PAIS = '",input$paises,"')
                                        GROUP BY NO_PAIS, CO_ANO"))
    View(p)
  })}


shinyApp(ui, server)

SQL 命令看起来不错，因为我在 shinyApp 结构之外使用这段代码成功提取了数据。

Answer 1

1. View(.) 的返回值为NULL，因此您的renderTable 将始终为空；就让它p。

2. 如果您的 ui 包含 plotlyOutput，则将 renderTable 替换为 plotly::renderPlotly。 shiny::renderTable 的 ui 组件是 shiny::tableOutput。

   renderTable 用于data.frame 类数据的表格显示，而不是绘图。

   选择任一：

   ui <- fluidPage(
     ...,
     tableOutput("table")
     ...
   )
   server <- function(input, output, session) {
     output$table <- renderTable({
       # code that returns a data.frame
     })
   }
   

   或

   ui <- fluidPage(
     ...,
     plotlyOutput("myplot")
     ...
   )
   server <- function(input, output, session) {
     output$myplot <- plotly::renderPlotly({
       # ...
       plot_lt(...)
     })
   }