Question

我想使用滚动条上下滚动，十字按钮关闭弹出窗口，默认显示10条记录，而不是现在的25条记录。 / p>

我不知道如何为此编写代码。

library(shiny)
library(shinydashboard)
library(shinyjs)
library(shinyBS)

data <- iris

ui <- tagList(
  useShinyjs(),
  dashboardPage(
    dashboardHeader(title = "Telemedicine HP"),
    dashboardSidebar(),
    dashboardBody(
      fluidRow(
        div(id='clickdiv',
            valueBox(60, subtitle = tags$p("Attended", style = "font- 
size: 200%;"), icon = icon("trademark"), color = "purple", width = 4, 
href 
= NULL)
        )
      )
    )
  )
)

server <-  function(input, output, session){
  onclick('clickdiv', showModal(modalDialog(
    title = "Your title",
    renderDataTable(data)
  )))
}

shinyApp(ui, server)

通过单击valuebox，将出现一个弹出窗口，显示一些表格数据。但是该窗口应该有一个滚动条，在右上角带有十字按钮，默认情况下，记录应显示为10，而不是在弹出窗口的左上角现在显示25。

有人可以帮我吗？

Answer 1

如果您的服务器部分是这样的，则限制为每页显示10个：

server <-  function(input, output, session){
  onclick('clickdiv', showModal(modalDialog(
    title = "Your title",
    renderDataTable(data, options = list(
      pageLength = 10, 
      scrollY = "400px"
    ))
  )))
}

我不确定我是否需要其他部分。具有10条记录，您不需要能够上下滚动，但是即使将其设置为很多记录（例如100条），正常的页面滚动条也可以正常工作。并且已经有一个按钮可以关闭桌子（尽管我很欣赏这不是您要的角落中的十字）。

您可以使用选项更改DataTable的其他部分-您可以看到一些示例here。

希望这会有所帮助！

编辑：我为垂直滚动条添加了一个选项。您可以更改号码以适合您。

如果这不起作用，那么您可能正在使用一种设置（例如，对于Mac），默认情况下，滚动条会一直隐藏，直到您开始滚动为止。

如何添加滚动条和十字按钮以在闪亮的应用程序中弹出窗口？

1 个答案: