如何在一个shiny模块中使用shinjs::extendShinyjs()？

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

How do I use shinjs::extendShinyjs() in a shiny module?

问题

shinyjs::extendShinyjs() 在没有至少一些命名空间的情况下似乎无法在 Shiny 模块中正常工作。

以下是一个使用简单的JS扩展来增加输入值的示例（按预期工作）：

  1. library(shiny)
  3. ui <- tagList(
  4.   fluidPage(
  5.     shinyjs::useShinyjs(),
  6.     shinyjs::extendShinyjs(text = "shinyjs.increase_click_count = function(val){
  7.         Shiny.setInputValue('count', +val + 1, { priority: 'event' })
  8.       }", functions = "increase_click_count"
  9.     ),
  10.     actionButton("increase","Increase"),
  11.     numericInput("count", "Count", 0),
  12.     textOutput("clicks")
  13.   )
  14. )
  16. server <- function(input, output, session) {
  17.     observeEvent(input$increase, {
  18.     shinyjs::js$increase_click_count(input$count)
  19.   })
  21.   output$clicks = renderText(input$count)
  22. }
  24. shinyApp(ui, server)

然而，当我将此逻辑包装在模块中时，shinyjs.increase_click_count() 函数不再更新值：

  1. library(shiny)
  3. module_ui <- function(id) {
  4.   tagList(
  5.     shinyjs::useShinyjs(),
  6.     shinyjs::extendShinyjs(text = paste0("shinyjs.increase_click_count = function(val){
  7.         Shiny.setInputValue('", NS(id, "count"), "', +val + 1, { priority: 'event' })
  8.       }"), functions = "increase_click_count"
  9.     ),
  10.     actionButton("increase","Increase"),
  11.     numericInput(NS(id, "count"), "Count", 0),
  12.     textOutput(NS(id,"clicks"))
  13.   )
  14. }
  16. module_server <- function(id) {
  17.   moduleServer(id, function(input, output, session) {
  18.     observeEvent(input$increase, {
  19.       shinyjs::js$increase_click_count(input$count)
  20.     })
  21.     
  22.     output$clicks = renderText(input$count)
  23.   })
  24. }
  26. ui <-  fluidPage(
  27.   module_ui("mod")
  28. )
  30. server <- function(input, output, session) {
  31.   module_server("mod")
  32. }
  34. shinyApp(ui, server)

如何正确处理Shiny模块中的JavaScript命名空间？

英文:

shinyjs::extendShinyjs() does not seem to work in a Shiny module without at least some namespacing.

Here is an example of using a simple JS extension to increase an input value (which works as intended):

  1. library(shiny)
  3. ui &lt;-  tagList(
  4.   fluidPage(
  5.     shinyjs::useShinyjs(),
  6.     shinyjs::extendShinyjs(text = &quot;shinyjs.increase_click_count = function(val){
  7.         Shiny.setInputValue(&#39;count&#39;, +val + 1, { priority: &#39;event&#39; })
  8.       }&quot;, functions = &quot;increase_click_count&quot;
  9.     ),
  10.     actionButton(&quot;increase&quot;,&quot;Increase&quot;),
  11.     numericInput(&quot;count&quot;, &quot;Count&quot;, 0),
  12.     textOutput(&quot;clicks&quot;)
  13.   )
  14. )
  17. server &lt;- function(input, output, session) {
  18.     observeEvent(input$increase, {
  19.     shinyjs::js$increase_click_count(input$count)
  20.   })
  22.   output$clicks = renderText(input$count)
  23. }
  25. shinyApp(ui, server)

However, when I wrap this logic in a module, the shinyjs.increase_click_count() function no longer updates the value:

  1. library(shiny)
  3. module_ui &lt;- function(id) {
  4.   tagList(
  5.     shinyjs::useShinyjs(),
  6.     shinyjs::extendShinyjs(text = paste0(&quot;shinyjs.increase_click_count = function(val){
  7.         Shiny.setInputValue(&#39;&quot;, NS(id, &quot;count&quot;), &quot;&#39;, +val + 1, { priority: &#39;event&#39; })
  8.       }&quot;), functions = &quot;increase_click_count&quot;
  9.     ),
  10.     actionButton(&quot;increase&quot;,&quot;Increase&quot;),
  11.     numericInput(NS(id, &quot;count&quot;), &quot;Count&quot;, 0),
  12.     textOutput(NS(id,&quot;clicks&quot;))
  13.   )
  14. }
  16. module_server &lt;- function(id) {
  17.   moduleServer(id, function(input, output, session) {
  18.     observeEvent(input$increase, {
  19.       shinyjs::js$increase_click_count(input$count)
  20.     })
  21.     
  22.     output$clicks = renderText(input$count)
  23.   })
  24. }
  26. ui &lt;-  fluidPage(
  27.   module_ui(&quot;mod&quot;)
  28. )
  30. server &lt;- function(input, output, session) {
  31.   module_server(&quot;mod&quot;)
  32. }
  34. shinyApp(ui, server)

How do I properly deal with Shiny module namespaces in Javascript?

答案1

得分: 1

你缺少了一个NS调用

  1. library(shiny)
  3. module_ui <- function(id) {
  4.   tagList(
  5.     shinyjs::useShinyjs(),
  6.     shinyjs::extendShinyjs(text = paste0("shinyjs.increase_click_count = function(val){
  7.         Shiny.setInputValue('', NS(id, 'count'), '', +val + 1, { priority: 'event' })
  8.       }"), functions = "increase_click_count"
  9.     ),
  10.     actionButton(NS(id, "increase"), "Increase"),
  11.     numericInput(NS(id, "count"), "Count", 0),
  12.     textOutput(NS(id,"clicks"))
  13.   )
  14. }
  16. module_server <- function(id) {
  17.   moduleServer(id, function(input, output, session) {
  18.     observeEvent(input$increase, {
  19.       shinyjs::js$increase_click_count(input$count)
  20.     })
  21.     
  22.     output$clicks = renderText(input$count)
  23.   })
  24. }
  26. ui <-  fluidPage(
  27.   module_ui("mod")
  28. )
  30. server <- function(input, output, session) {
  31.   module_server("mod")
  32. }
  34. shinyApp(ui, server)
英文:

You're missing a a NS call

  1. library(shiny)
  3. module_ui &lt;- function(id) {
  4.   tagList(
  5.     shinyjs::useShinyjs(),
  6.     shinyjs::extendShinyjs(text = paste0(&quot;shinyjs.increase_click_count = function(val){
  7.         Shiny.setInputValue(&#39;&quot;, NS(id, &quot;count&quot;), &quot;&#39;, +val + 1, { priority: &#39;event&#39; })
  8.       }&quot;), functions = &quot;increase_click_count&quot;
  9.     ),
  10.     actionButton(NS(id, &quot;increase&quot;), &quot;Increase&quot;),
  11.     numericInput(NS(id, &quot;count&quot;), &quot;Count&quot;, 0),
  12.     textOutput(NS(id,&quot;clicks&quot;))
  13.   )
  14. }
  16. module_server &lt;- function(id) {
  17.   moduleServer(id, function(input, output, session) {
  18.     observeEvent(input$increase, {
  19.       shinyjs::js$increase_click_count(input$count)
  20.     })
  21.     
  22.     output$clicks = renderText(input$count)
  23.   })
  24. }
  26. ui &lt;-  fluidPage(
  27.   module_ui(&quot;mod&quot;)
  28. )
  30. server &lt;- function(input, output, session) {
  31.   module_server(&quot;mod&quot;)
  32. }
  34. shinyApp(ui, server)

huangapple
  • 本文由 发表于 2023年7月28日 05:08:10
  • 转载请务必保留本文链接：https://go.coder-hub.com/76783420.html
  • javascript
  • r
  • shiny
  • shinyjs
匿名

发表评论

匿名网友

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

确定