반짝 반짝 빛나는 동작 버튼이 작동하지 않는 이유는 무엇입니까?

Question

library(shiny) 
library(leaflet) 
library(nycflights13) 
library(DT) 

parguera <- nycflights13::flights 

r_colors <- rgb(t(col2rgb(colors())/255)) 
names(r_colors) <- colors() 

ui <- fluidPage(
titlePanel("NOAA Caribbean Coral Data"), 
leafletOutput("mymap"), 
p(), 
actionButton("laparguera", "La Parguera Data"), 
actionButton("mona", "Mona Island Data"), 
actionButton("isla", "Isla Catalina Data") 
) 

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

output$mymap <- renderLeaflet({ 
leaflet() %>% 
    addTiles() %>% 
    addMarkers(lat = 17.95, lng = - 67.05, popup = "La Parguera ") %>% 
    addMarkers(lat = 18.00, lng = -67.50, popup = "Mona Island") %>% 
    addMarkers(lat = 18.2, lng = -69.00, popup = "Isla Catalina") 
}) 
observeEvent(input$laparguera, { 
DT::renderDataTable(DT::datatable(parguera) 
}) 
} 

shinyApp(ui, server) 

위 코드는 dataframe을 표시하기 위해 laparguera 작업 버튼을 얻으려고합니다. (예, 비행기 데이터, 산호 데이터가 아니라는 것을 알고 있지만 우선 작동시키기를 원합니다). 작업 버튼이 작동하지 않는 이유는 무엇입니까?

Answer 1

renderDataTable()으로 전화를 걸지 만 이동해야 할 위치를 지정하지 마십시오. UI에 dataTableOutput() 개체가 필요합니다.

ui <- fluidPage(
    titlePanel("NOAA Caribbean Coral Data"), 
    leafletOutput("mymap"), 
    p(), 
    actionButton("laparguera", "La Parguera Data"), 
    actionButton("mona", "Mona Island Data"), 
    actionButton("isla", "Isla Catalina Data"), 
    DT::dataTableOutput('tbl') 
) 

같은 뭔가 그런 다음 당신은 당신의 server() 기능에

observeEvent(input$laparguera, { 
    output$tbl <- DT::renderDataTable(DT::datatable(parguera)) 
}) 

이 있어야합니다.