如何在R Shiny中添加“返回页首”按钮？

Question

这是其他网络应用程序中非常常见的功能，但在R Shiny中，如何添加一个按钮，在点击时将用户带回页面顶部？

除此之外，是否可以设置用户视图向上或向下移动的距离？

非常感谢，我搜索了一段时间，但找不到任何关于此的帖子。

Answer 1

使用shinyjs包，您可以沿

行定义一个简单的跳转到顶部函数

jscode <- "shinyjs.toTop = function() {document.body.scrollTop = 0;}"

然后您可以将代码分配给ui中的按钮

  useShinyjs(),
  extendShinyjs(text = jscode),
  actionButton("toTop", "jump to top")

当点击按钮时，服务器中有一个观察者执行javascript，如

observeEvent(input$toTop, {
    js$toTop();
 })

请注意，我还没有测试过这个答案，但是它应该足以指向正确的方向（例如，javascript可能不适用于不同的浏览器）

Answer 2

使用“ gotop”包

在CRAN上可用

通过调用install.package（“ gotop”）进行安装

使用非常简单，只需在用户界面的任何位置添加use_gotop（）即可。