顯示的'同步'（mapview）閃亮

Question

我想要two spatial plots side-by-side in shiny，並且我被建議爲一個強大的功能，sync的mapview。在確定如何display mapview object in shiny後，我嘗試將'sync'整合到'shiny'中，但出現以下錯誤：插槽（x，「map」）中的錯誤：對於此類「shiny.tag」的名稱「map」沒有插槽.list「。這是否意味着sync沒有地圖對象，因此，不可能將sync或latticeView與shiny？如果是這樣，我想應該有解決方案，我的耳朵都是開放的。這是一個很好的功能，可以從Shiny訪問，並允許做一些有趣的事情。非常感謝任何建議。下面是示例代碼重複性：

library(shiny) 
library(mapview) 
ui <- fluidPage(
    mapviewOutput("samplemap"), 
    p() 
) 
server <- function(input, output, session) { 
    output$samplemap <- renderMapview({ 
     m1 <- mapview(gadmCHE,zcol="ID_1") 
     m2 <- mapview(gadmCHE,zcol="OBJECTID") 
     sync(m1,m2) 
     }) 
} 
shinyApp(ui, server) 

Answer 1

我們已經討論了使從sync的htmlwidget返回值。目前，sync返回小冊子地圖的htmltools::tagList。將tags插入shiny將與插入mapview稍有不同。我會嘗試在下面的代碼中解釋。

library(mapview) 

m1 <- mapview(gadmCHE,zcol="ID_1") 
s1 <- sync(m1,m1) 


library(shiny) 

# if not dynamically adding maps 
# we can just insert as ui 

shinyApp(
    ui = s1, 
    server = function(input,output){} 
) 

# if there is a need to create the maps after UI 
# then we will need to handle differently 
# since sync gives us tags instead of an htmlwidget 
shinyApp(
    ui = uiOutput("syncmap"), 
    server = function(input,output){ 
    output$syncmap = renderUI({ 
     s1 
    }) 
    } 
)