观察在另一个模块中发生的动作

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

oberveEvent on an action located in another module

问题

在一个闪亮的应用程序中，我有两个模块，在第一个模块（mod_1_ui）中我有筛选器和一个按钮。在模块2中，我希望在按钮被点击时显示一个绘图。

我的问题是，observeEvent位于模块2中，而按钮位于模块1中。如何观察两个不同模块中的按钮点击事件？

以下是一个可重现的示例：

  1. mod_1_ui = function(id) {
  2.   ns = NS(id)
  3.   
  4.   fluidRow(
  5.     column(
  6.       width = 3,
  7.       radioButtons(
  8.         ns("dist"),
  9.         "Distribution type:",
  10.         c(
  11.           "Normal" = "norm",
  12.           "Uniform" = "unif",
  13.           "Log-normal" = "lnorm",
  14.           "Exponential" = "exp"
  15.         )
  16.       ),
  17.       actionButton(
  18.         inputId = ns("btn_go"),
  19.         label = "Go !",
  20.         icon = icon("play")
  21.       )
  22.     ),
  23.   
  24.     column(width = 9,
  25.            mod_2_ui(ns("display_plot"))
  26.          )
  27.   )
  28. }
  30. mod_1_server = function(id, r_global) {
  31.   moduleServer(id, function(input, output, session) {
  32.     mod_2_server("display_plot")
  33.   })
  34. }
  36. mod_2_ui = function(id) {
  37.   ns = NS(id)
  39.   plotOutput(outputId = ns("plot"))
  40. }
  42. mod_2_server = function(id, r_global) {
  43.   moduleServer(id, function(input, output, session) {
  44.     
  45.     observeEvent(input$btn_go,{
  46.       output$plot <- renderPlot({
  47.         plot(mtcars$mpg)
  48.       })
  49.     })
  50.     
  51.   })
  52. }
  54. ui <- fluidPage(
  55.   mod_1_ui("mod")
  56. )
  58. server <- function(input, output, session) {
  59.   r_global <- reactiveValues()
  61.   mod_1_server("mod", r_global = r_global)
  62. }
  64. if (interactive())
  65.   shinyApp(ui, server)

观察在另一个模块中发生的动作

英文:

In a shiny app, I have 2 modules, in the first one (mod_1_ui) I have filters and an actionButton.
On the module 2, I want to display a plot WHEN button is clicked.

My problem is that, the observeEvent is in module 2 and the button in module 1.
How can I observeEvent an action in 2 differents modules ?
观察在另一个模块中发生的动作

Below is a reproducible example :

  1. mod_1_ui = function(id) {
  2.   ns = NS(id)
  3.   
  4.   fluidRow(
  5.     column(
  6.     width = 3,
  7.     radioButtons(
  8.       ns(&quot;dist&quot;),
  9.       &quot;Distribution type:&quot;,
  10.       c(
  11.         &quot;Normal&quot; = &quot;norm&quot;,
  12.         &quot;Uniform&quot; = &quot;unif&quot;,
  13.         &quot;Log-normal&quot; = &quot;lnorm&quot;,
  14.         &quot;Exponential&quot; = &quot;exp&quot;
  15.       )
  16.     ),
  17.     actionButton(
  18.       inputId = ns(&quot;btn_go&quot;),
  19.       label = &quot;Go !&quot;,
  20.       icon = icon(&quot;play&quot;)
  21.     )
  22.   ),
  23.   
  24.   column(width = 9,
  25.            mod_2_ui(ns(&quot;display_plot&quot;))
  26.          )
  27.   )
  28. }
  31. mod_1_server = function(id, r_global) {
  32.   moduleServer(id, function(input, output, session) {
  33.     mod_2_server(&quot;display_plot&quot;)
  34.     
  35.   })
  36. }
  41. mod_2_ui = function(id) {
  42.   ns = NS(id)
  44.   plotOutput(outputId = ns(&quot;plot&quot;))
  45. }
  48. mod_2_server = function(id, r_global) {
  49.   moduleServer(id, function(input, output, session) {
  50.     
  51.     observeEvent(input$btn_go,{
  52.       output$plot &lt;- renderPlot({
  53.         plot(mtcars$mpg)
  54.       })
  55.     })
  56.     
  57.   })
  58. }
  63. ui &lt;- fluidPage(
  64.   mod_1_ui(&quot;mod&quot;)
  65. )
  67. server &lt;- function(input, output, session) {
  68.   r_global &lt;- reactiveValues()
  70.   mod_1_server(&quot;mod&quot;, r_global = r_global)
  71. }
  73. if (interactive())
  74.   shinyApp(ui, server)

答案1

得分: 1

以下是代码的翻译部分：

一种选项是使用reactive或reactiveVal将按钮的状态作为参数传递给模块2的服务器：

  1. library(shiny)
  3. mod_1_ui <- function(id) {
  4.   ns <- NS(id)
  6.   fluidRow(
  7.     column(
  8.       width = 3,
  9.       radioButtons(
  10.         ns("dist"),
  11.         "Distribution type:",
  12.         c(
  13.           "Normal" = "norm",
  14.           "Uniform" = "unif",
  15.           "Log-normal" = "lnorm",
  16.           "Exponential" = "exp"
  17.         )
  18.       ),
  19.       actionButton(
  20.         inputId = ns("btn_go"),
  21.         label = "Go !",
  22.         icon = icon("play")
  23.       )
  24.     ),
  25.     column(
  26.       width = 9,
  27.       mod_2_ui(ns("display_plot"))
  28.     )
  29.   )
  30. }
  32. mod_1_server <- function(id, r_global) {
  33.   moduleServer(id, function(input, output, session) {
  34.     show <- reactive({
  35.       input$btn_go
  36.     })
  37.     
  38.     mod_2_server("display_plot", show = show)
  39.   })
  40. }
  42. mod_2_ui <- function(id) {
  43.   ns <- NS(id)
  45.   plotOutput(outputId = ns("plot"))
  46. }
  48. mod_2_server = function(id, r_global, show) {
  49.   moduleServer(id, function(input, output, session) {
  50.     
  51.     observeEvent(show(),{
  52.       output$plot <- renderPlot({
  53.         plot(runif(10, runif(10)))
  54.       })
  55.     })
  56.     
  57.   })
  58. }
  60. ui <- fluidPage(
  61.   mod_1_ui("mod")
  62. )
  64. server <- function(input, output, session) {
  65.   r_global <- reactiveValues()
  67.   mod_1_server("mod", r_global = r_global)
  68. }
  70. if (interactive()) {
  71.   shinyApp(ui, server)
  72. }
英文:

One option would be to use a reactive or a reactiveVal to pass the state of your button as an argument to the module 2 server:

  1. library(shiny)
  3. mod_1_ui &lt;- function(id) {
  4.   ns &lt;- NS(id)
  6.   fluidRow(
  7.     column(
  8.       width = 3,
  9.       radioButtons(
  10.         ns(&quot;dist&quot;),
  11.         &quot;Distribution type:&quot;,
  12.         c(
  13.           &quot;Normal&quot; = &quot;norm&quot;,
  14.           &quot;Uniform&quot; = &quot;unif&quot;,
  15.           &quot;Log-normal&quot; = &quot;lnorm&quot;,
  16.           &quot;Exponential&quot; = &quot;exp&quot;
  17.         )
  18.       ),
  19.       actionButton(
  20.         inputId = ns(&quot;btn_go&quot;),
  21.         label = &quot;Go !&quot;,
  22.         icon = icon(&quot;play&quot;)
  23.       )
  24.     ),
  25.     column(
  26.       width = 9,
  27.       mod_2_ui(ns(&quot;display_plot&quot;))
  28.     )
  29.   )
  30. }
  32. mod_1_server &lt;- function(id, r_global) {
  33.   moduleServer(id, function(input, output, session) {
  34.     show &lt;- reactive({
  35.       input$btn_go
  36.     })
  37.     
  38.     mod_2_server(&quot;display_plot&quot;, show = show)
  39.   })
  40. }
  42. mod_2_ui &lt;- function(id) {
  43.   ns &lt;- NS(id)
  45.   plotOutput(outputId = ns(&quot;plot&quot;))
  46. }
  48. mod_2_server = function(id, r_global, show) {
  49.   moduleServer(id, function(input, output, session) {
  50.     
  51.     observeEvent(show(),{
  52.       output$plot &lt;- renderPlot({
  53.         plot(runif(10, runif(10)))
  54.       })
  55.     })
  56.     
  57.   })
  58. }
  60. ui &lt;- fluidPage(
  61.   mod_1_ui(&quot;mod&quot;)
  62. )
  64. server &lt;- function(input, output, session) {
  65.   r_global &lt;- reactiveValues()
  67.   mod_1_server(&quot;mod&quot;, r_global = r_global)
  68. }
  70. if (interactive()) {
  71.   shinyApp(ui, server)
  72. }

观察在另一个模块中发生的动作

huangapple
  • 本文由 发表于 2023年3月4日 03:38:44
  • 转载请务必保留本文链接：https://go.coder-hub.com/75631246.html
  • action
  • module
  • r
  • shiny
匿名

发表评论

匿名网友

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

确定