如何在 R Shiny 中翻页

Posted 2023-03-22

【中文标题】如何在 R Shiny 中翻页

【英文标题】：how to turn pages in R Shiny

【发布时间】：2021-12-24 00:11:50

【问题描述】：

我正在学习 Shiny 来构建简单的网站，我想在我的网站上发布每个框（或其他小部件）中的信息，我想为其添加分页。也就是说，在第 1 页有框 1-4；第 2 页有方框 5-8；和第 3/4/5 页...在底部我可以翻页。就像我们使用google一样，可以翻到下一页/上一页查看结果。

我浏览了 Shiny 网站上的示例，但我没有发现任何示例包含这种情况。下面的代码有助于理解我想要做什么。

library(shiny)
library(shinydashboard)

# ui
header <- dashboardHeader(title = "My App")
sidebar <- dashboardSidebar()
body <- dashboardBody(
  fluidRow(
    # box1
    box(
      title = "Many boxes to display", width = 12, height = 250
    ),
    # box2
    box(
      title = "Many boxes to display", width = 12, height = 250
    ),
    # box3
    box(
      title = "Many boxes to display", width = 12, height = 250
    ),
    # box4
    box(
      title = "Many boxes to display", width = 12, height = 250
    ),
  )
)

ui <- dashboardPage(header, sidebar, body)

# server
server <- function(input, output) 

# app
shinyApp(ui = ui, server = server)

【问题讨论】：

您的导航是否需要位于页面底部？因为我知道顶部栏或侧边栏导航有几个选项，有几个页面，但我不知道页面底部是否有任何选项。

你的意思是tabsetPanel和tabPanel吗？这与我尝试做的有点不同，我试图将所有内容放在一个选项卡上，当用户向下滚动时，他们可以转到下一页以查看更多内容，或者在某些网站上我看到“加载更多”选项，单击时会显示更多其他内容。喜欢这个：cnbc.com/economy

在 shinydashboard 中还有 tabItems() 并且在闪亮中有 navbarPage() 但恐怕两者都没有完全符合您的描述。

【参考方案1】：

您可以调整此页面中的演示以适合您 https://github.com/daattali/advanced-shiny/tree/master/multiple-pages

如果您希望分页是连续的，您可以使用相同的下一个/上一个按钮并将文本更改为 1/10、2/10 等，以使用户更了解总页数。 如果这不是问题，您可以动态生成带编号的按钮列表并将它们的操作链接到您的页面，模拟翻页