Css 在标题和R中的其他项目之间留出空间（闪亮应用程序）

如何更改标题的字体和大小，并在标题和其他项目之间添加一些空格

ui<-navbarPage(Title="Intervals",
              tabPanel("Data Import",
              sidebarLayout(sidebarPanel( fileInput("file","Upload your 
              CSV",multiple = FALSE),
              tags$hr(),
              h5(helpText("Select the read.table parameters below")),
              checkboxInput(inputId = 'header', label = 'Header', value = 
              FALSE),
              checkboxInput(inputId = "stringAsFactors", "stringAsFactors", 
              FALSE),
              radioButtons(inputId = 'sep', label = 'Separator', 
              choices = c(Comma=',',Semicolon=';',Tab='\t', Space=''), selected 
               = ',')),
              mainPanel(uiOutput("tb1")) ) ),        
              tabPanel("95% Continious RI",
               sidebarLayout(sidebarPanel(
                              uiOutput("model_select"),
                              uiOutput("var1_select"),
                              uiOutput("rest_var_select")),
                              mainPanel( helpText("Selected variables and Fitted values"),
                                         verbatimTextOutput("other_val_show")))),
                  tabPanel("Model Summary", verbatimTextOutput("summary")), 
                  tabPanel("Scatterplot", plotOutput("scatterplot")))

---

ui您可以按如下方式添加自定义CSS：

tags$head(tags$style(HTML('.navbar-brand {width: 300px; font-size:35px; text-align:center;}')))               )

这将使您的示例如下所示：

tags$head(tags$style(HTML('.navbar-brand {width: 300px; font-size:35px; text-align:center;}')))               )


您可能想稍微玩弄一下这些数字，使其与您的偏好相匹配。下面给出了再现上述图像的代码。希望这有帮助

ui<-navbarPage("Intervals",
               tabPanel("Data Import",
                        sidebarLayout(sidebarPanel( fileInput("file","Upload your 
                                                              CSV",multiple = FALSE),
                                                    tags$hr(),
                                                    h5(helpText("Select the read.table parameters below")),
                                                    checkboxInput(inputId = 'header', label = 'Header', value = 
                                                                    FALSE),
                                                    checkboxInput(inputId = "stringAsFactors", "stringAsFactors", 
                                                                  FALSE),
                                                    radioButtons(inputId = 'sep', label = 'Separator', 
                                                                 choices = c(Comma=',',Semicolon=';',Tab='\t', Space=''), selected 
                                                                 = ',')),
                                      mainPanel(uiOutput("tb1")) ) ),        
               tabPanel("95% Continious RI",
                        sidebarLayout(sidebarPanel(
                          uiOutput("model_select"),
                          uiOutput("var1_select"),
                          uiOutput("rest_var_select")),
                          mainPanel( helpText("Selected variables and Fitted values"),
                                     verbatimTextOutput("other_val_show")))),
               tabPanel("Model Summary", verbatimTextOutput("summary")), 
               tabPanel("Scatterplot", plotOutput("scatterplot")),
               tags$head(tags$style(HTML('.navbar-brand {width: 300px; font-size:35px; text-align:center;}')))
)

server <- function(input,output) {}

shinyApp(ui,server)

ui你对这个问题也有什么建议吗？