R Shiny Dashboard 在按钮点击时滚动到顶部

有没有办法在单击按钮时滚动到 ShinyDashboard 中的页面顶部？

我在 ui.R 下的 dashboardSidebar( 中添加了以下几行:

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

以及 server.R 下 observeEvent(input$button, { 中的以下内容:
js$button()
这似乎适用于 RStudio 的应用程序预览，但不适用于浏览器。

最佳答案

使用 first Google hit 表示“javascript滚动到顶部”，最受好评的答案是 window.scrollTo(x-coord, y-coord);
我尝试用 document.body.scrollTop = 0; 替换你的 window.scrollTo(0, 0) 并且它起作用了。

仅供引用，如果你只有一个非常简单的函数来定义，你也可以在服务器代码中使用 shinyjs::runjs("window.scrollTo(0, 50)")

关于R Shiny Dashboard 在按钮点击时滚动到顶部，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/49137032/