R ggiraph onclick javascript -Shiny

У меня есть ggplot, и я пытаюсь сделать его интерактивным с пакетом ggiraph . Подсказка работает отлично, «OnClick» функция , кажется, появляется в блестящей консоли , когда я нажимаю на geom_line.

Но я не могу заставить его работать так , когда я нажимаю geom_line_interactive, чтобы изменить ( с помощью JS) input type(от searchдо submit) и установитьvalue из DataTable search input .

Html таблицы search input:

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

Создайте новый столбец для js, который используется в функции onclick :

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

В файле server.R используйте js из столбца onclick:

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

Я попытался использовать только document.getElementsByClassName (..... без включения его в функцию (он не влияет на inputполе). Я не могу изменить html, поэтому я не могу добавить id в поле ввода ,