R-Shiny，在Shiny模块内将动作按钮用于Leaflet弹出窗口。

huangapple
go评论145阅读模式
英文:

R-Shiny, Use action button into a leaflet popup inside a Shiny module

问题

我正在尝试在Shiny模块中的Leaflet弹出窗口中使用一个actionbutton

当尝试在Shiny模块的Leaflet弹出窗口中使用actionbutton时，按钮无法工作。

请参考下面的示例：

  1. library(shiny)
  2. library(leaflet)
  3. library(DT)
  5. map_ui <- function(id) {
  6.   ns <- NS(id)
  7.   tagList(
  8.     leafletOutput(ns("mymap"))
  9.   )
  10. }
  12. map_Server <- function(id) {
  13.   moduleServer(
  14.     id,
  15.     function(input, output, session) {
  16.       mapdata <- datasets::quakes
  17.       mapdata$latitude <- as.numeric(mapdata$lat)
  18.       mapdata$longitude <- as.numeric(mapdata$long)
  19.       mapdata$id <- 1:nrow(mapdata)
  20.       
  21.       output$mymap <- renderLeaflet({
  22.         leaflet(options = leafletOptions(maxZoom = 18)) %>% addTiles() %>%
  23.           addMarkers(lat = ~ latitude, lng = ~ longitude,
  24.                      data = mapdata,
  25.                      layerId = mapdata$id,
  26.                      popup= ~paste("<b>", mag, "</b></br>", actionLink(inputId = "modal", label = "Modal", onclick = 'Shiny.setInputValue("button_click", this.id, {priority: "event"})')))
  27.       })
  29.       observeEvent(input$button_click, {
  30.         showModal(modalDialog(
  31.           title = "TEST MODAL"
  32.         ))
  33.       })
  34.     }
  35.   )
  36. }
  38. ui <- fluidPage(
  39.   map_ui('ex1')
  40. )
  42. server <- function(input, output){
  43.   map_Server('ex1')
  44. }
  46. shinyApp(ui, server)

有没有办法使该模块中的按钮工作？我认为问题可能是按钮没有使用ns()，但我找不到使其工作的方法。

谢谢。

英文:

I am trying to use an actionbutton in a leaflet popup into a shiny module

When trying to use an action button into a leaflet popup in a Shiny module, button do not work.

See the exemple below :

  1. library(shiny)
  2. library(leaflet)
  3. library(DT)
  5. map_ui &lt;- function(id) {
  6.   ns &lt;- NS(id)
  7.   tagList(
  8.     
  9.     leafletOutput(ns(&quot;mymap&quot;))
  10.     
  11.   )
  12. }
  14. map_Server &lt;- function(id) {
  15.   moduleServer(
  16.     id,
  17.     function(input, output, session) {
  18.       
  19.       mapdata &lt;- datasets::quakes
  20.       mapdata$latitude &lt;- as.numeric(mapdata$lat)
  21.       mapdata$longitude &lt;- as.numeric(mapdata$long)
  22.       mapdata$id &lt;- 1:nrow(mapdata)
  23.       
  24.       output$mymap &lt;- renderLeaflet({
  25.         leaflet(options = leafletOptions(maxZoom = 18)) %&gt;% addTiles() %&gt;%
  26.           addMarkers(lat = ~ latitude, lng = ~ longitude,
  27.                      data = mapdata,
  28.                      layerId = mapdata$id,
  29.                      popup= ~paste(&quot;&lt;b&gt;&quot;, mag, &quot;&lt;/b&gt;&lt;/br&gt;&quot;, actionLink(inputId = &quot;modal&quot;, label = &quot;Modal&quot;, onclick = &#39;Shiny.setInputValue(\&quot;button_click\&quot;, this.id, {priority: \&quot;event\&quot;})&#39;)))
  30.       })
  32.       observeEvent(input$button_click, {
  33.         showModal(modalDialog(
  34.           title = &quot;TEST MODAL&quot;
  35.         ))      })
  36.       
  38.       
  39.     }
  40.   )
  41. }
  43. ui &lt;- fluidPage(
  44.   
  45.   map_ui(&#39;ex1&#39;)
  46.   
  47. )
  49. server &lt;- function(input, output){
  50.   map_Server(&#39;ex1&#39;)
  51.   
  52. }
  54. shinyApp(ui, server)

Is there any way to make work that button into the module ? I think that it comes that the button is not ns() but i don't find a way to make it works.

Thanks

答案1

得分: 1

是的，你需要添加ns：

  1. function(input, output, session) {
  2.   
  3.   ns <- session$ns  
  4.   
  5.   ...... 
  6.   
  7.   output$mymap <- renderLeaflet({
  8.     leaflet(options = leafletOptions(maxZoom = 18)) %>% addTiles() %>%
  9.       addMarkers(
  10.         lat = ~ latitude, lng = ~ longitude,
  11.         data = mapdata,
  12.         layerId = mapdata$id,
  13.         popup = 
  14.           ~paste(
  15.             "<b>", mag, "</b></br>", 
  16.             actionLink(
  17.               inputId = "modal", label = "Modal", 
  18.               onclick = sprintf(
  19.                 'Shiny.setInputValue("%s", this.id, {priority: "event"})',
  20.                 ns("button_click")
  21.               )
  22.             )
  23.           )
  24.       )
  25.   })
  26.   
  27.   ......
  28.   
  29. }
英文:

Yes, you have to add the ns:

  1. function(input, output, session) {
  2.   
  3.   ns &lt;- session$ns  
  4.   
  5.   ...... 
  6.   
  7.   output$mymap &lt;- renderLeaflet({
  8.     leaflet(options = leafletOptions(maxZoom = 18)) %&gt;% addTiles() %&gt;%
  9.       addMarkers(
  10.         lat = ~ latitude, lng = ~ longitude,
  11.         data = mapdata,
  12.         layerId = mapdata$id,
  13.         popup = 
  14.           ~paste(
  15.             &quot;&lt;b&gt;&quot;, mag, &quot;&lt;/b&gt;&lt;/br&gt;&quot;, 
  16.             actionLink(
  17.               inputId = &quot;modal&quot;, label = &quot;Modal&quot;, 
  18.               onclick = sprintf(
  19.                 &#39;Shiny.setInputValue(\&quot;%s\&quot;, this.id, {priority: \&quot;event\&quot;})&#39;,
  20.                 ns(&quot;button_click&quot;)
  21.               )
  22.             )
  23.           )
  24.       )
  25.   })
  26.   
  27.   ......
  28.   
  29. }

huangapple
  • 本文由 发表于 2023年6月2日 03:26:41
  • 转载请务必保留本文链接：https://go.coder-hub.com/76385098.html
  • r
  • shiny
  • shinymodules
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定