更改R Shiny fileInput中标签文本的大小/间距吗？

Question

我正在开发R Shiny应用程序，在该应用程序中，我构建了如下文件输入功能：

  csvFileInput <- function(name_space, file_name="file", label = "Input file") {
    ns <- NS(name_space)
    # doc here: https://shiny.rstudio.com/reference/shiny/latest/fileInput.html
    fileInput(ns(file_name), label)
  }

现在，我试图更改此处提供的label的字体设置（在下图中，它是“文件输入”）。 对于较长的标签，字体似乎太大了，有时显得笨拙。

• 有没有办法更改这些标签中的字体大小？

• 有没有办法添加制表符或换行符之类的空格？

文档只是说这个label是

显示控件的标签，或显示NULL（无标签）。

总体上，还有其他关于“有光泽的文本呈现”的问题 ，但是我不确定这些标签的实现方式是否相同，并且我也不了解Web脚本，因此非常感谢您的帮助。

Answer 1

本文巧妙地总结了使用CSS设置Shiny样式的三种方法。 如果最终要对多个元素进行样式设置，通常最好通过样式表（即实际的.css文件）添加CSS，在样式表中，该样式表需要放置在名为“ www”的子目录中，该子目录又是在您的应用目录中。

如果仅对一个元素进行样式设置（“ element”表示从函数输出的UI），并且希望将样式应用到整个元素，则可以将该元素包装在div标签中，并使用style属性，如下所示：

div(
   fileInput("file1", "Choose CSV File",
               accept = c(
               "text/csv",
               "text/comma-separated-values,text/plain",
               ".csv")
   ), style="font-size:80%; font-family:Arial;"
)

如您所描述的，如果您只希望对元素的一个组件进行样式设置，则需要使用浏览器中的开发人员工具来确定样式设置所针对的HTML。 对于fileInput标签，实际的<label> HTML标签是我们的目标。 如果您不想使用样式表，则可以通过Shiny文章中介绍的第三种方法（通过tags功能）添加必要的CSS。 您可以将以下代码添加到您的UI（在fluidPage顶部的fluidPage ）以更改字体并在标签下方添加填充：

tags$head(
  tags$style(HTML(
    "label { font-size:80%; font-family:Times New Roman; margin-bottom: 
    20px; }"
  ))
)