R 我可以包括一个传单层，只能打开密码？

我正在开发一个带有传单地图的寻宝（从R内部）。
参与者可以在中途解开谜语，获得预先隐藏的食品包装的坐标；）

有没有办法对传单层的显示进行密码投影？
它不一定是安全的，它只是一个游戏，但它将是一个很好的噱头

到目前为止，我得到的是一个有条件的位置显示，如下所示

传单（）%%>%addTiles（）%%>%setView（12.94,52.39,14）%%>%
addCircleMarkers（12.94,52.395，col=“red”，group=“Riddle”）%>%
addLayersControl（overlayegroups=“ridle”，options=layersControlOptions（collapsed=FALSE））%>%
希德格鲁（“谜语”）

如果只是一个游戏，你不想编写一个完整的闪亮应用程序，你可以添加一些javascript来达到类似的效果。但显然不安全

可在此处找到一个工作示例：

密码是：“皮卡丘”

---

抱歉，这不能直接在Leavet中完成。但是，在shiny中，如果输入正确，您可以包含一个密码文本字段，该字段可以触发新传单层的外观。请参见此处我如何将其更改为覆盖组：

library(dplyr)
library(leaflet)
library(htmlwidgets)


leaflet() %>%
  addProviderTiles(providers$CartoDB.Positron) %>%
  addMarkers(lat=50.9, lng=-0.9, group="Not Secret") %>%
  setView(lat=37.8, lng=0.96, zoom=3) %>%
  addLayersControl(baseGroups = c("Not Secret", "Secret Location"), options = layersControlOptions(collapsed = F)) %>%
    htmlwidgets::onRender("function(el, x){
    var myMap = this;
    var secretmarker = L.marker([40, 20])
    myMap.on('baselayerchange', function(e){
       if (e.name === 'Secret Location'){
          var secretkey = prompt('Secret Key: '); 
          if (secretkey === 'Pikachu'){
            secretmarker.addTo(myMap);
          } else {
            alert('Incorrect Key');
          }
        } else {
          secretmarker.remove();
        }
    })
  }")