daterangeinput без страницы жидкости в блестящей приборной панели - PullRequest
Новая
       12

daterangeinput без страницы жидкости в блестящей приборной панели

0 голосов
/ 24 августа 2018

У меня проблема при создании блестящего веб-приложения с использованием библиотеки semantic.dashboard.

Ниже приведен код моего приложения. 

library(semantic.dashboard)

# Define UI
header <- dashboardHeader(
)

sidebar <- dashboardSidebar(
    side = "left",
    sidebarMenu(
        menuItem(tabName = "overview", text = "Overview", icon = icon("home")),
        menuItem(tabName = "analysis", text = "Analysis", icon = icon("chart bar"))
    )
)

body <- dashboardBody(
    dateRangeInput("datepicker", NULL, start = Sys.Date()-30, end = Sys.Date()-1)
)

tabItems(
  tabItem(
    tabName = "overview",
    fluidRow(

    )
  ),
  tabItem(
    tabName = "analysis",
    fluidRow(

    )
  )
)

ui <- dashboardPage(
  header,
  sidebar,
  body,
  title = "My Dashboard",
  theme = "lumen"
)

# Define server logic
server <- function(input, output, session) {
    session$onSessionEnded(stopApp)
}

# Run the application 
shinyApp(ui = ui, server = server)

Результат на скриншоте ниже:

results

Основная проблема в том, что даты внутри виджета daterangeinput похожи на простой текст внутри текстового поля. Я не могу нажать на них, чтобы изменить даты.

Использование liquidPage () решит проблему, но приложение не заполняет всю веб-страницу полностью (и для этого приложения отзывчивость не очень полезна).

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

приложение с FluidPage ()

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

Заранее спасибо за помощь.

1 Ответ

0 голосов
/ 28 августа 2018

Приведенный выше пример не работает, поскольку он использует стили среды начальной загрузки - в отличие от пакетов shiny.semantic или semantic.dashboard.

Пожалуйста, проверьте мой пакет PR до shiny.semantic.Я реализовал простой ввод даты с использованием компонентов семантического интерфейса.Вы также можете использовать его для создания простого диапазона дат (добавлен быстрый пример в PR).

...