R 显示'；同步'；（地图视图）以闪亮的颜色显示

我正试图拥有一个强大的功能，

sync

的

mapview

。在了解了如何进行同步后，我尝试将

sync

集成到'shinny'中，但出现了以下错误：插槽（x，“map”）中的错误：对于类“shinny.tag.list”的对象，没有名为“map”的插槽。这是否意味着

sync

没有映射对象，因此无法将

sync

或

latticeView

与

集成？如果是这样的话，我想应该有解决办法，我的耳朵都打开了。这是一个很好的功能，可以从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)

库（闪亮）
图书馆（地图视图）
ui我们已经讨论过将
sync
的返回值设置为htmlwidget。当前，
sync
返回传单映射的
htmltools:：tagList
。将
标记
插入到
中
将与插入
地图视图
略有不同。我将尝试在下面的代码中解释

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
    })
  }
)

库（mapview）
m1为缺少有关
sync
返回对象的讨论部分而道歉
这很有用，但是，只有当
sync
对象作为
ui
插入时，地图才会显示。我无法动态添加贴图，即带有
renderUI
和
uiOutput
的代码打开了一个窗口，但没有贴图。不知道为什么？另外，我想知道我是否可以使用
renderlaflet
对象在反应式表达式中创建
sync
对象，然后在
renderUI
和
'uiOutput
中使用？非常感谢您的建议。
shinny
，
htmltools
的哪些版本，还有
htmlwidgets
你有吗？这里是：
shinny
0.14.1
htmltools
0.3.5
htmlwidgets
0.7你能在浏览器中打开并使用F12或CTRL+Shift+I或左键单击/检查是否有任何错误吗？我想说的是mac，在chrome上我至少看到一个错误，但我不知道这意味着什么。