Shiny.onInput - 对每次点击 JS 做出反应

Question

可能很简单的问题。我对嵌入在 Shiny 项目中的 Javascript 不太熟悉，无法正确处理

我有一个 gVis 表，选择行的唯一方法是使用 js 侦听器。我的监听器很简单，将一行分配给一个变量（这里是 sustable）

  sussimilar_click <- sprintf("var sustable = chart.getSelection()[0]['row'];
   Shiny.onInputChange('sustable', sustable);")

我想要实现的是更改下面的表格 - 每次点击将值从 TRUE 更改为 FALSE，反之亦然 所以我有一个简单的观察者

  observe({input$sustable
    values$datAll1[input$sustable+1,3] <- !values$datAll1[input$sustable+1,3]
  })

正如您可能期望的那样，它会改变我需要它的方式，但它只会在值更改时触发 - 所以如果我在同一个项目上单击两次，它不会触发第二个事件。

如何在每次点击时触发？或者也许我应该在不将值传递给观察者的情况下更改侦听器（如果是，如何？是否有任何 Shiny.onInput 没有更改？）

Answer 1

我使用的解决方案是添加第二个输入，即input$trigger，我将其添加到 javascript 部分。为他分配一个随机数可确保他在每次点击时触发并触发服务器函数中观察者的代码。

Shiny.onInputChange('sustable', sustable);
Shiny.onInputChange('trigger', Math.random());

然后让服务器代码监听它：

observeEvent(input$trigger, {
   values$datAll1[input$sustable+1,3] <- !values$datAll1[input$sustable+1,3]
})

Answer 2

我找到了结合 js 脚本和 shinyjs 的答案 我将 onclick 事件添加到读取侦听器然后更改数据的 gvis 表中 到用户界面：

useShinyjs(),
extendShinyjs(text = jsCode),

到服务器：

  onclick("sussimilar", {
    values$datAll1[input$sustable+1,3] <- !values$datAll1[input$sustable+1,3]
  })

当然，BigDataScientist 的回答同样好，因为它要求创建另一个和我一样的实体

注意：这里的 sussimilar 是 gVisTable 名称，不是任何特定的函数