「同期」（地図表示）の光沢のある表示

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を返します。 shinyにtagsを挿入すると、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 
    }) 
    } 
)