R Shiny：如何使用renderTable显示空间数据框

Question

我正在使用基于PostgreSQL空间数据库的Leaflet地图构建一个Shiny应用程序。

我成功地将空间数据导入SpatialPolygonDataFrame并在Leaflet小部件上显示它。

我试图使用RenderTable输出显示SpatialDataFrame中的数据，但它无法正常工作，即使将其转换为as.data.frame（spatialdataframe）也是如此。 因此，此转换足以使用view（），kable（）或其他显示函数来调度表，但不能在Shiny中调度。

我应该进行另一次转换吗？ 有人有个主意吗？

    ui <- fluidPage(
titlePanel("AgriPAG"),
sidebarLayout(
    mainPanel(
        tabsetPanel(
            tabPanel(leafletOutput("m",width = "100%", height = 1000)),
            tabPanel(tableOutput(as.data.frame(sample_test1)))
        )
    ),
    sidebarPanel("curseur")
)
)

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

data <- reactive({
x <- test1
})

output$mymap <- renderLeaflet({
test1 <- data()

m <- leaflet(data = sample_test1) %>%
        addTiles() %>%
        setView(lng=-52.3333300, lat=4.9333300 , zoom=10) %>%
        addPolygons(data=sample_test1, weight=2, col="black", opacity=0.5)
m
})

output$table <- renderDataTable(as.data.frame(sample_test1))

}

shinyApp(ui = ui, server = server)

Answer 1

renderDataTable不适用于tableOutput 。 您必须使用dataTableOutput 。 此外，您应该为dataTableOutput添加正确的inputId 。

为了让一切工作变化：你的ui tableOutput(as.data.frame(sample_test1))到dataTableOutput('table')