我正在使用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
的字体(输入而不是标签)对于我的仪表板其余部分来说太大了。这是我要缩小字体的部分:
我该怎么做?谢谢。
答案 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)