r - Shiny を使用して Leaflet マップで数値入力を取得するにはどうすればよいですか?

Question

これは、私が抱えている問題を説明するために作成した再現可能な R/Shiny コードです...基本的に、以下に示すように、数値入力をリーフレットマップに埋め込もうとすると、指定された値入力を呼び出すことができません数値入力で。

Web を精査した後、光沢のあるリーフレット マップをレンダリングする方法のために、JS ベースのソリューションが必要であるという予感がします。UI出力を作成してから、UI数値入力をレンダリングして、リアクティブ関数を使用してさまざまな戦略を試みましたが、あまりうまくいきませんでした。これを理解しようとして壁に頭をぶつけていたので、助けていただければ幸いです。

library(shiny)
library(leaflet)
library(dplyr)

content <- paste(sep = "<br/>",
             "<b>Change number below:</b>",
             numericInput("numeroUno", label = NULL, value = 1)
)

ui <- fluidPage(
  "This is a map",
  leafletOutput("myMap"),  
  numericInput('numeroDos', label = NULL, value = 5),
  textOutput("mapPopupLink"))

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

output$myMap <- renderLeaflet({
 leaflet() %>% 
    setView(lng = 25.0343, lat = 77.3963, zoom = 5) %>% 
    addPopups(-122.327298, 47.597131, content, options = popupOptions(closeButton = FALSE)) %>%
    addTiles() %>%
    addProviderTiles(providers$OpenTopoMap)
  })

 output$mapPopupLink <- renderText({
      paste("The ui-based widget prints: ", input$numeroDos, ". But the server-based widget does not: ", input$numeroUno)
   })
 }
 shinyApp(ui, server)

助けてください！

追加情報が必要な場合はお知らせください。