小编iom*_*dee的帖子

我有非常复杂的闪亮应用程序，其所有内容都menuItems在服务器部分内呈现。这是有必要做的。现在我找不到如何选择打开菜单中的第一个子项的解决方案。第一页只是空白。

library(shiny)
library(shinydashboard)


ui <- dashboardPage(
  dashboardHeader(
    title = "Shiny"
  ),

  dashboardSidebar(
    sidebarMenu(

      menuItemOutput("Section_1")

    )
  ),

  dashboardBody(

    tabItems(
      tabItem("report_1",h1("a")),
      tabItem("report_2",h1("b")),
      tabItem("report_3",h1("c"))
    )
  )
)


server <- function(input, output) {

    output$Section_1 <- renderMenu({

      menuItem("Section_1", tabName = "section_1", icon = icon("align-justify"), 
               startExpanded = TRUE, selected = TRUE,
               menuSubItem("Subsection 1", tabName = "report_1", selected = TRUE),
               menuSubItem("Subsection 2", tabName = "report_2"),
               menuSubItem("Subsection 3", tabName = "report_3"))

    })

}

shinyApp(ui,server)

我有一张超过 100 页的长桌。我需要添加一些功能，以便用户可以键入页数，例如 50，然后轻松转到此页面。当需要打开某个位于间隔中间的页面时，很长的表会出现此问题。在这种情况下，用户必须多次单击“上一个”或“下一个”按钮。

在下面的示例中，我无法一键打开第 8 页。

if (interactive()) {
  library(shiny)
  library(DT)
  shinyApp(
    ui = fluidPage(fluidRow(column(12, DTOutput('tbl')))),
    server = function(input, output) {
      output$tbl = renderDT(
        iris, options = list(lengthChange = FALSE)
      )
    }
  )
}