如何通过shinywidgets包更改airDatepicker中输入的字体大小?

时间:2019-12-03 08:36:45

标签: r shiny shinydashboard shinywidgets

我正在使用airDatepicker软件包中的shinyWidgets。这是我的代码:

airDatepickerInput(inputId = "choosedate", label = "month range", range = TRUE, placeholder = "choose month range", dateFormat = "M yy", view = "months", minView = "months", clearButton = TRUE,
autoClose = TRUE, update_on = "close", inline = FALSE, monthsField = "monthsShort", separator = " - ",
width = "161px", value = c("2010-01-01", "2019-12-31"), addon = "right")

我还使用tags$style放入所有CSS代码。当前airDatepicker的字体(输入而不是标签)对于我的仪表板其余部分来说太大了。这是我要缩小字体的部分:

Here

我该怎么做?谢谢。

1 个答案:

答案 0 :(得分:1)

您必须找到正确的选择器(例如,使用浏览器):

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  tags$head(tags$style(HTML('
                            #choosedate {font-size: 75%}
                            #datepickers-container > div > nav {font-size: 75%;}
                            #datepickers-container > div > div.datepicker--content {font-size: 75%;}
                            #datepickers-container > div > div.datepicker--buttons > span {font-size: 75%;}
                            '))),
  airDatepickerInput(inputId = "choosedate", label = "month range", range = TRUE, placeholder = "choose month range", dateFormat = "M yy", view = "months", minView = "months", clearButton = TRUE,
                     autoClose = TRUE, update_on = "close", inline = FALSE, monthsField = "monthsShort", separator = " - ",
                     width = "161px", value = c("2010-01-01", "2019-12-31"), addon = "right")
)

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

shinyApp(ui, server)

Before After