R Shiny Größe und Format von dateRangeInput Widget ändern

Question

In meiner Shiny App habe ich ein dateRangeInput Widget, das so aussieht.

1) Ich mag die Größe der Daten in den Feldern erhöhen und den Text von fett zu normalen ändern.

2) Auch möchte ich den Abstand zwischen dem Widget-Titel und der Widget-Eingabe erhöhen, um die Höhe des (wellPanel) zu erhöhen. Ich kann die Breite unter Verwendung der width Funktion steuern, aber kann nicht scheinen, seine Höhe zu ändern.

Ich bin kein Experte in CSS, also habe ich Schwierigkeiten, dies zu ändern.

Hier ist mein Versuch von ui.R, das scheint nicht zu funktionieren.

column(wellPanel(
tags$style(type='text/css', ".selectize-input { font-size: 20px; line-height: 24px;}"), 
dateRangeInput("inp_pg1daterange", 
       label = paste('Date range selection'), 
       start = min(results_combined$Date), 
       end = max(results_combined$Date), 
       separator = " - ", 
       weekstart = 1 

) 

Jede Hilfe wird sehr geschätzt!

Answer 1

Ich habe den Beispielcode dateRangeInput verwendet. Zwei css-Elemente zum Anfassen.

den Code aktualisiert die Lücke zwischen Widget und Titel zu erhöhen: arbeitete

if (interactive()) { 

    ui <- fluidPage(

    tags$title('This is my page'), 

    tags$style('.input-sm {font-size: 16px; } label {font-weight: 500; margin-bottom: 15px; }'), 

    dateRangeInput("daterange1", "Date range:", 
        start = "2001-01-01", 
        end = "2010-12-31"), 

    # Default start and end is the current date in the client's time zone 
    dateRangeInput("daterange2", "Date range:"), 

    # start and end are always specified in yyyy-mm-dd, even if the display 
    # format is different 
    dateRangeInput("daterange3", "Date range:", 
        start = "2001-01-01", 
        end = "2010-12-31", 
        min = "2001-01-01", 
        max = "2012-12-21", 
        format = "mm/dd/yy", 
        separator = " - "), 

    # Pass in Date objects 
    dateRangeInput("daterange4", "Date range:", 
        start = Sys.Date()-10, 
        end = Sys.Date()+10), 

    # Use different language and different first day of week 
    dateRangeInput("daterange5", "Date range:", 
        language = "de", 
        weekstart = 1), 

    # Start with decade view instead of default month view 
    dateRangeInput("daterange6", "Date range:", 
        startview = "decade") 
) 

    shinyApp(ui, server = function(input, output) { }) 
}