r - 绘图时向下滑动的数据表

Question

我在 Shiny 的页面上有一个 dataTable 输出，其中我启用了行选择：

 output$table <- renderDataTable({datasetInput()},options = list(pageLength = 10,bLengthChange=F,bInfo=0),callback = "function(table) {
table.on('click.dt', 'tr', function() {
$(this).toggleClass('selected');
Shiny.onInputChange('rows',
table.rows('.selected').indexes().toArray());
});  
}"

我想做的是使用用户行选择，从第一列中获取值，这是一个 ID，然后使用该 ID 搜索 df 并绘制结果。

我可以实施。

但我想要的是，能够在选择行时将表格向下滑动以显示情节，当取消选择行时，隐藏情节并将表格滑回页面。

任何帮助，非常感谢。