Как добавить полосу прокрутки и крестик, чтобы всплывающее окно в блестящем приложении? - PullRequest
Новая
       5

Как добавить полосу прокрутки и крестик, чтобы всплывающее окно в блестящем приложении?

0 голосов
/ 07 мая 2019

Я хочу иметь полосу прокрутки для прокрутки вверх и вниз, крестик , чтобы закрыть всплывающее окно, и по умолчанию 10 записей должны отображаться вместо 25 сейчас.

Я не знаю, как написать код для этого. 

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)

Если щелкнуть поле значений, появится всплывающее окно с некоторыми табличными данными. Но в этом окне должна быть полоса прокрутки, крестообразная кнопка в правом верхнем углу, и записи должны отображаться по умолчанию 10 вместо 25, отображаемых в верхнем левом углу всплывающего окна.

Может кто-нибудь помочь мне с этим?

1 Ответ

0 голосов
/ 07 мая 2019

Если ваша серверная часть похожа на это, она ограничена 10 показанными на странице: 

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

Я не уверен, что понимаю необходимость в других частях. С 10 записями вам не нужно иметь возможность прокручивать вверх и вниз, но даже когда я установил для этого много записей (скажем, 100), обычная полоса прокрутки страницы работает нормально. И есть кнопка, чтобы уже закрыть стол (хотя я ценю, что это не крестик в углу, который вы запрашиваете).

Вы можете изменить другие части вашей таблицы данных, используя опции - вы можете увидеть некоторые примеры здесь .

Надеюсь, это поможет!

РЕДАКТИРОВАТЬ: я добавил опцию для вертикальной полосы прокрутки. Вы можете изменить номер, чтобы удовлетворить вас.

Если это не сработает, возможно, вы используете установку (например, для Mac), в которой полосы прокрутки по умолчанию скрыты до тех пор, пока вы не начнете прокручивать.

...