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

使用first Google hit“javascript滚动到顶部”，最受欢迎的答案为window.scrollTo(x-coord, y-coord);

我尝试用document.body.scrollTop = 0;替换您的window.scrollTo(0, 0)，但它确实有效。

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