Shiny 中的 dateInput 不适用于微调器

Question

我正在构建一个包含许多图表的应用程序，并在等待它们生成时使用微调器。 我发现如果我在图表中添加微调器，我的日期输入不再有效。 我不明白这种行为，也不知道如何解决它。

Here is my example:

library(data.table)
library(tidyverse)
library(shinydashboard)
library(highcharter)
library(lubridate)
library(shiny)
library(shinyWidgets)
library(shinycssloaders)

db <- mtcars

sidebar <- dashboardSidebar()
body <- dashboardBody(
   h2("Test"),
   box(title = "Date",width =12,
       column(dateInput('startdate','',value = dmy("1/1/2017"), min = NULL, max = NULL,
       format = "yyyy-mm-dd", startview = "month", weekstart = 0,language = "en", width = NULL),width = 3)
   ),
   highchartOutput("hc")%>%withSpinner()
)  
header <- dashboardHeader()
ui <- dashboardPage(header,sidebar,body)

server <- function(input, output, session) {

  output$hc <- renderHighchart({
    hc <- highchart() %>%
      hc_add_series(name = "mpg", data = db$mpg) %>%
      hc_add_series(name = "wt", data = db$wt)
    hc
  })

}

shinyApp(ui, server)

如果我要删除withSpinner()，那么我可以选择日期。

Answer 1

我和那些纺纱厂的关系又爱又恨。无论如何：将您的图表放在一个流式（和列）中为我解决了这个问题：

library(data.table)
library(tidyverse)
library(shinydashboard)
library(highcharter)
library(lubridate)
library(shiny)
library(shinyWidgets)
library(shinycssloaders)

db <- mtcars

sidebar <- dashboardSidebar()

body <- dashboardBody(
    h2("Test"),
    box(title = "Date",width =12,
        column(dateInput('startdate','',value = dmy("1/1/2017"), min = NULL, max = NULL,
                         format = "yyyy-mm-dd", startview = "month", weekstart = 0,language = "en", width = NULL),width = 3)
    ),
    
    fluidRow(
        column(
            width = 12,
            shinycssloaders::withSpinner(highchartOutput("hc"))
        )
    )

)

header <- dashboardHeader()
ui <- dashboardPage(header,sidebar,body)

server <- function(input, output, session) {
    
    output$hc <- renderHighchart({
        hc <- highchart() %>%
            hc_add_series(name = "mpg", data = db$mpg) %>%
            hc_add_series(name = "wt", data = db$wt)
        hc
    })
    
}

shinyApp(ui, server)

这可能表明它还奇怪地应用于您页面的其他方面，而不仅仅是您的图表？