避免在sliderTextInput中重叠文本

Question

我正在使用ShinyWidgets软件包中的sliderTextInput。我无法使标签可读。

首先，它们太小了，我已经使用CSS对其进行了修复。但是，现在标签重叠了，因此很难阅读它们。

我希望能够执行以下一项或两项操作：

• 将文本倾斜45度或90度，这样标签就不会重叠。

• 减少标签的数量，以便它们之间有更多空间。我尝试在choices =参数中执行此操作，但是这随后阻止了这些选项的选择。我认为这可能与文本有关，而不是数字有关，因此这可能使之成为不可能。

我尝试改用sliderInput，但这带来了不同的问题。我几乎可以使用this answer来工作了，但是另一个问题是输入服务器端以uiOutput的形式提供，这是我无法更改的，因为它对于其他元素很重要。这种方法不适用于链接的解决方案-我最终得到了足够好的标签，但是休息时间是每天而不是每月。

这是一个精简的示例：

使用sliderTextInput（标签重叠）

library(shinydashboard)
library(shinyWidgets)
library(shiny)


ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
   tags$head(tags$style(type = "text/css", ".irs-grid-text {font-size: 12pt !important;")),
    fluidRow(
      box(uiOutput("month_selection"))
      )
    )
  )

server <- function(input, output) {
  output$month_selection <- renderUI({
    sliderTextInput(
      inputId = "month_select",
      label = "",
      grid = TRUE, 
      force_edges = TRUE,
      choices = seq(from = as.Date("2017-01-01"), to = as.Date("2019-12-31"),by = 30)
    )
  })

}

shinyApp(ui, server)

使用sliderInput（不运行）

library(shinydashboard)
library(shinyWidgets)
library(shiny)

monthStart <- function(x) {
  x <- as.POSIXlt(x)
  x$mday <- 1
  as.Date(x)
}

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
   tags$head(tags$style(type = "text/css", ".irs-grid-text {font-size: 12pt !important;")),
    fluidRow(
      box(uiOutput("month_selection"))
      )
    )
  )

server <- function(input, output) {

  output$month_selection <- renderUI({
    sliderInput(
      inputId = "month_select",
      label = "",
      min = as.Date("2017-01-01"),
      max = as.Date("2019-12-31"),
      value = as.Date("2019-12-31"),
      timeFormat = "%b %Y",
      animate = TRUE
    )
  })

  sliderMonth <- reactiveValues()
  observe({
    sliderMonth$Month <- as.character(monthStart(input$month_select))
  })

}

shinyApp(ui, server)

> Warning: Error in as.POSIXlt.default: do not know how to convert 'x' to class “POSIXlt”