错误：shinyjs：extendShinyjs：必须提供`functions`参数

Posted 2023-03-24

【中文标题】错误：shinyjs：extendShinyjs：必须提供`functions`参数

【英文标题】：Error : shinyjs: extendShinyjs: `functions` argument must be provided

【发布时间】：2021-07-12 18:20:36

【问题描述】：

我对 Shiny 很陌生，所以这可能是一个直截了当的答案。数据可视化应用程序在我同事的计算机上正常运行（他使用旧软件包版本）。从我在网上收集的信息来看，我的问题似乎与闪亮库的更新有关（也许也有情节）。我想我需要重写这两条 extendShinyjs 行，但到目前为止我还没有找到方法。

o.ui <- fluidPage(theme = shinytheme("flatly"),
        useShinyjs(),
        extendShinyjs(text = "shinyjs.resetClick = function()  Shiny.onInputChange('plotly_click-graphic', 'null'); "),
        extendShinyjs(text = "shinyjs.resetClick_leg = function()  Shiny.onInputChange('traces', 'null'); "),
        # l.tweaks,  

【参考方案1】：

通过如下更改代码，它现在正在运行！

jsCode <- "shinyjs.resetClick = function()  Shiny.onInputChange('plotly_click-graphic', 'null'); "
jsCode2 <- "shinyjs.resetClick_leg = function()  Shiny.onInputChange('traces', 'null'); "

o.ui <- fluidPage(theme = shinytheme("flatly"),
        useShinyjs(),
        #extendShinyjs(text = "shinyjs.resetClick = function()  Shiny.onInputChange('plotly_click-graphic', 'null'); "),
        extendShinyjs(text = jsCode , functions = c("resetClick")),
        extendShinyjs(text = jsCode2 , functions = c("resetClick_leg")),
        #extendShinyjs(text = "shinyjs.resetClick_leg = function()  Shiny.onInputChange('traces', 'null'); "),