daterangeinput在闪亮的仪表板中没有流体页面

Question

使用语义。仪表板库创建闪亮的Web应用程序时遇到问题。

下面是我的应用程序的代码。

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)

结果在下面的屏幕截图中：

主要问题是daterangeinput小部件内的日期就像文本框中的简单文本一样。 我无法单击它们来更改日期。

使用fluidPage（）可以解决该问题，但是应用程序并不能完全填充整个网页（对于该应用程序，响应性并不是很有用）。

下面是当我使用fluidPage（）时应用程序的屏幕截图，您可以看到侧边栏和边框之间以及侧边栏和主体之间有足够的空间。

app with fluidPage()

我想知道是否可以在不使用fluidPage（）的情况下使用daterangeinput，或者，如果不能，则知道在使用fluidPage时如何删除边框和侧边栏之间的填充。

预先感谢您的帮助。

Answer 1

上面的示例不起作用，因为它使用引导框架样式-与shiny.semantic或semantic.dashboard软件包相反。

请检查我的PR至shiny.semantic包裹。我已经实现了使用语义UI组件的简单日期输入。您还可以使用它来创建简单的日期范围（在PR中添加了快速示例）。