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

Question

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

我已经添加了以下几行ui.R下dashboardSidebar(：

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

并在以下server.R下observeEvent(input$button, {：

js$button()

这似乎适用于 RStudio 的应用程序预览，但不适用于浏览器。

Answer 1

使用“javascript滚动到顶部”的第一个谷歌点击，最受好评的答案是window.scrollTo(x-coord, y-coord);

我尝试用 替换你document.body.scrollTop = 0;，window.scrollTo(0, 0)它奏效了。

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