javascript - 为使用模块命名空间的 R Shiny 模块编写自定义 JavaScript 的最佳方法是什么？

转载作者：塔克拉玛干更新时间：2023-11-02 21:24:53

29

4

<分区>

我有一个复杂的 Shiny 应用程序，需要使用自定义 JavaScript 代码。该应用程序由在具有不同 namespace 的多个位置调用的模块组成。我需要将一些 JavaScript 代码与 R 代码一起“模块化”，即使用模块 namespace 。我能够通过创建包含 JS 代码的自定义字符串并使用 shinyjs::runjs() 函数(下面的示例)执行它来使其工作。对于给定的示例，这是一个公平的解决方案。然而，将更复杂的超过一百行的 JavaScript 代码放入一个粘贴有标识符的字符串中似乎很容易出错并且不是最佳解决方案(缺乏突出显示，痛苦的格式化等)。有没有更好的方法达到同样的效果？

library(shiny)
library(shinyJS)

myModuleUI <- function(id) {
    ns <- NS(id)

    tagList(
        div(id = ns("clickableElement"), class = "btn btn-primary", "Click Me"),
        div(id = ns("highlightableElement"), "This (and only this!) text should be highlighted on click")
    )
}

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

    ns <- session$ns

    shinyjs::runjs(paste0("
        $('#", ns("clickableElement"), "').click(function() {
            $('#", ns("highlightableElement"), "').css('background', 'yellow');
        })   
    "))
}

ui <- fluidPage(
    useShinyjs(),
    tabsetPanel(
        tabPanel(
            "Instance 1",
            myModuleUI("one")
        ),
        tabPanel(
            "Instance 2",
            myModuleUI("two")
        )
    )
)

server <- function(input, output) {
    callModule(myModule, "one")
    callModule(myModule, "two")
}

shinyApp(ui = ui, server = server)

更新

为了将来引用，我决定分享我最终实现的解决方案。我最终为每个模块创建了一个 JS 文件，其中包含一个将命名空间作为唯一参数的函数。此函数使用此命名空间创建所有需要的对象和绑定(bind)。然后，我在模块的开头使用 shinyjs 调用该单个函数。这让我可以将 JS 代码保存在一个单独的文件中，这样可以解决最初的问题并使代码易于管理(尤其是当您有大量 JS 代码时)。

app.R

library(shiny)
library(shinyjs)

myModuleUI <- function(id) {
    ns <- NS(id)

    tagList(
        div(id = ns("clickableElement"), class = "btn btn-primary", "Click Me"),
        div(id = ns("highlightableElement"), "This (and only this!) text should be highlighted on click")
    )
}

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

    ns <- session$ns

    shinyjs::runjs(paste0("myModuleJS('", ns(""), "');"))
}

ui <- fluidPage(
    useShinyjs(),
    tags$head(
        tags$script(src = "myModuleJS.js")
    ),
    tabsetPanel(
        tabPanel(
            "Instance 1",
            myModuleUI("one")
        ),
        tabPanel(
            "Instance 2",
            myModuleUI("two")
        )
    )
)

server <- function(input, output) {
    callModule(myModule, "one")
    callModule(myModule, "two")
}

shinyApp(ui = ui, server = server)

www/myModuleJS.js

function myModuleJS(ns) {
    $('#' + ns + 'clickableElement').click(function() {
        $('#' + ns + 'highlightableElement').css('background', 'yellow');
    });
}

29

4

0

文章推荐： javascript - 处理 reactjs .reduce 中的空值

文章推荐： javascript - ChartJs 不显示数据

shiny - 在没有 Shiny 服务器的情况下托管 Shiny 应用程序
我正在通过 Rscript.exe 在托管到我的本地网络的服务器上运行 Shiny 应用程序。如果我们要将其移植到网上，我们可以通过我们设置的服务器基础设施来实现。 Shiny Server 是否添加
shiny - Shiny 数据表的列标题被移动
当我运行我的 Shiny 应用程序时，我的数据表的标题向左移动。见下文。假设这张表在选项卡 A 上。当我单击不同的选项卡(选项卡 B)时，标题会正确对齐，然后再次单击选项卡 A。有关更正的标题，请
Rstudio Shiny 如何在 Shiny 页面中显示 Shiny 服务器的版本？
是否有查询正在运行的 RStudio Shiny 网页以显示正在运行的服务器版本的变量或方法？例如。显示类似 shiny-0.10.1在网页上。有任何想法吗？最佳答案您可以使用 packageV
shiny - Shiny 的交互式相关热图
我想在以下位置重现示例:https://scip.shinyapps.io/scip_app/ 基本上，我有一个 300 x 300 调整后的相关矩阵和一个 300 x 300 未调整的相关矩阵，我想
R+ Shiny 哪个锤子？直 Shiny 、柔性仪表板还是 Shiny 仪表板？
关闭。这个问题是opinion-based 。目前不接受答案。想要改进这个问题吗？更新问题，以便 editing this post 可以用事实和引文来回答它。 . 去年关闭。社区去年审查了是否重
shiny - 如何从我的帐户(从 Shiny 的服务器)中删除不工作的 Shiny 应用程序？
在我部署应用程序时，应用程序中仍然存在一些异常情况，因此我想将它们从我的帐户中删除。我试过了，但没有找到任何选择。任何帮助将不胜感激。谢谢最佳答案在从 shiny.io 填充 token 信息后，
shiny - R Shiny - R Shiny 服务器开源的 WebSEAL 身份验证
据我了解，Shiny Server 的开源版本不支持身份验证。我们有一个环境使用 WebSEAL 代理服务来验证用户并将他们的访问引导到 Web 应用程序。我们希望向经过身份验证的用户公开 Shi
R shiny - shiny 应用程序在本地和其他 shiny 服务器上运行良好，但在我的服务器上不起作用。它没有给我错误信息
我想将一个 R 应用程序(在装有 OS RHEL6.8 的实际 Shiny 服务器上运行良好)转移到另一个"new" Shiny 服务器。我的应用程序在第一台服务器上运行良好。这个想法是将它放在性能更
shiny - 在 RMarkdown 中编织 Shiny 时出错。 appshot.shiny.appobj 中的错误
我正在通过 #RMarkdown 创建一个测试页面并尝试在其中添加 #Shiny 内容。在编织到 HTML 时，我收到以下错误。 Error in appshot.shiny.appobj(list(
shiny - 在 Shiny 的两个列表框之间移动项目
有没有一种简单的方法可以在 shiny 中创建这样的东西？最佳答案 RStudio 目前正在处理 sortable 包:RStudio/sortable 请注意，它目前正在开发中(标记为实验性)，因
runapp从其他带有操作按钮的 Shiny 应用程序中 Shiny
当我在一个非常简单的 Shiny 应用程序中按下操作按钮时，我试图调用另一个 Shiny 的应用程序。另一个应用程序位于一个带有 ui.R 和 server.R 文件的名为 Benefits 的文件夹
r - Shiny 的服务器发生错误加载命名空间没有包rcpp但安装了rcpp并在R作品中加载 Shiny
我最近试图在我的服务器上打开一个 Shiny 的服务器应用程序，并遇到了我以前从未见过的错误。 Error in loadNamespace(j -c "R -e \"install.pack
shiny - R Shiny 应用程序显示旧数据
我有 Shiny 的应用程序，它显示旧数据(延迟 4 天!)，但服务器数据已刷新(当天)。奇怪的是，服务器上不存在旧数据集 - 似乎只存在于 Shiny 缓存中。在服务器上，我有 1 个数据集由
Shiny 应用程序无法在没有日志文件的 Shiny 服务器上运行
我有一个在本地 R 服务器(端口 8787)上运行的应用程序。当我将它移动到 Shiny Server(端口 3838)时，我收到消息 ERROR: An error has occurred. Ch
shiny - 如何改变 Shiny 导航栏中的填充
我试图消除此表格与浏览器窗口左侧之间的空间，但当我这样做时，它弄乱了导航栏链接和标题的间距。如何在不改变 navbar/ui/li 元素的填充/边距的情况下删除 excelR 表上的填充/边距？ l
r - Shiny - 表格中的复选框 Shiny
我已经阅读并实现了来自 link 的 Shiny 表中的复选框.但是当我在 R 中运行时，列中的输出是 , 等在每个“选择”单元格中，我希望“选择”列中的输出是复选框，我的问题的解决方案是什么？谢谢
shiny - 使用源代码模块时重新加载 Shiny 的应用程序而不重新启动
我一直在开发一个 Shiny 的应用程序，它开始变得相当大。我通过将应用程序的不同部分放入各自文件中的模块中解决了这个问题，然后获取文件。问题是，当我在源文件的服务器部分(下例中的 events.
r - Shiny :无法在 Shiny 的数据表中设置列宽
我对 Shiny 和 DataTables 还很陌生，所以这可能是个愚蠢的问题。由于某种原因，我无法更改列宽。我试过了 output$table<-DT::renderDataTable( {w
shiny-server - 在 Shiny 服务器的本地位置托管应用程序
我安装了我的 Shiny 服务器，它在这个目录下的多个应用程序上工作正常: /srv/ Shiny 服务器/app1/srv/ Shiny 服务器/app2 我可以使用 www.mydomain.co
shiny - 在 Shiny 中包含带选项的 Markdown
我想在我的 Shiny 应用程序中包含我的 myMardown.md 文档。为了显示目录，我使用了 toc 选项，还使用了 css (myStyle.css) myMarkdown.md : ---

首页

博学

6Ren·AI

商城

javascript - 为使用模块命名空间的 R Shiny 模块编写自定义 JavaScript 的最佳方法是什么？

更新