R闪亮的仪表板滚动至顶部按钮单击

在ShinyDashboard中，有没有办法通过点击按钮滚动到页面顶部

我在

仪表板侧栏（

）下的

ui.R

中添加了以下几行：

以及

server.R

中

observeEvent（输入$button，{

）下的以下内容：

js$button（）

这似乎在RStudio的应用程序预览中起作用，但在浏览器中不起作用。

使用“javascript滚动到顶部”选项，最多的答案是

窗口。滚动到（x-coord，y-coord）；

我尝试将您的

document.body.scrollTop=0；

替换为

window.scrollTo（0，0）

，效果良好

仅供参考，如果您只需要定义一个非常简单的函数，还可以在服务器代码中使用

shinyjs:：runjs（“window.scrollTo（0，50）”）

useShinyjs(), 
extendShinyjs(text = "shinyjs.button = function() {document.body.scrollTop = 0;}"),