私はあなたが日付を選択する必要があるアプリケーションを作った。日付ピッカーを使用すると、メニューバーの後ろに表示され、重要な情報が隠されます。メニューバーの下のShiny Date Pickerを開く
あなたは、日付ピッカーの一番上の行を見ることができますし、その月のあなたの中を見ると、数ヶ月の間で高速に閲覧することができます。日付が少し下に置かれている場合
さて、メニュー・バーには日付ピッカーの上部を非表示にし、このような表示されます:
私はこの問題を回避するにはどうすればよいですか?私は
# Setup
library(shiny)
library(dplyr)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Basic dashboard"),
## Sidebar content
dashboardSidebar(
sidebarMenu(
menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
menuItem("Widgets", tabName = "widgets", icon = icon("th")),
dateRangeInput('dateRange1',
label = 'Period 1, Current Month',
start = Sys.Date(), end = Sys.Date() + 9,
separator = ";",
weekstart = 1), # This opens correct
dateRangeInput('dateRange1',
label = 'Period 1, Current Month',
start = Sys.Date(), end = Sys.Date() + 9,
separator = ";",
weekstart = 1) # This does NOT open correct!
)
),
dashboardBody(
tabItems(
# First tab content
tabItem(tabName = "dashboard",
fluidRow(
box(plotOutput("plot1", height = 250)),
box(
title = "Controls",
sliderInput("slider", "Number of observations:", 1, 100, 50)
)
)
),
# Second tab content
tabItem(tabName = "widgets",
h2("Widgets tab content")
)
)
)
)
server <- function(input, output) {
set.seed(122)
histdata <- rnorm(500)
output$plot1 <- renderPlot({
data <- histdata[seq_len(input$slider)]
hist(data)
})
}
shinyApp(ui, server)
私はあなたの問題を誤って読んで持っていることがあります。私は、datepicker-orient-bottomが両方のオブジェクトのクラスに適用されるというソリューションを望んでいると思っていました。無視してください。 :) – LuckySeedling