点击javascript -Shiny

Question

我有一个图形，我试着让它与https://davidgohel.github.io/ggiraph/introduction.html包交互。工具提示工作得很好，当我单击时，函数似乎出现在闪亮的控制台中。

但是，当我单击一个geom_line_interactive时，我无法使它工作，所以更改(使用js) input type(从search到submit)和set value of a dataTable search input。

表的search input的html

<input type="search" class="form-control input-sm" placeholder aria-controls="DataTables_Table_0">

为onclick特性中使用的js创建新列：

dfMonth$onclick <- sprintf(
  "function clickLine(){document.getElementsByClassName(\"form-control input-sm\").type=\"submit\".value=\"%s\";}",as.character(dfMonth$ISBN) )

在server.R文件中，使用onclick列中的js：

geom_line_interactive(aes(color=ISBN, group=ISBN, tooltip=ISBN, onclick=onclick))

我试过只使用document.getElementsByClassName(.而不将其包含在函数中(它对input字段没有影响)。我无法修改html，因此无法向输入字段添加id。

Answer 1

这个要点演示了如何用闪亮的语言填充DT的搜索输入字段：

https://gist.github.com/davidgohel/68623058bad5b42f253ec8823a732a45