Css 更改幻灯片文本的颜色将其放入闪亮的应用程序中

我只想将s

liderInput（）

的值

（1,2,3，…10）

的字体颜色从黑色改为白色，但这是不可能的。滑块如何与css文件连接

 ui <- fluidPage(
  tags$style(type = "text/css", "
      .irs-grid-text {font-family: 'arial'; color: white; bottom: 17px; z-index: 1;}
    "),
  sliderInput(inputId="test", label=NULL, min=1, max=10, value=5, step = 1, width='100%')
)

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

shinyApp(ui = ui, server=server)

---

ui您可以添加！对CSS来说，让它工作起来很重要，但我知道这并不理想——也许为CSS使用外部文件可以工作

library(shiny)

ui <- fluidPage(
  tags$head(
  tags$style(HTML(type = "text/css", "
      .irs-grid-text {font-family: 'arial'; color: white !important; bottom: 17px; z-index: 1; }
    "))),
  sliderInput(inputId="test", label=NULL, min=1, max=10, value=5, step = 1, width='100%')
)

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

shinyApp(ui = ui, server=server)

库（闪亮）
ui您可以添加！对CSS来说，让它工作起来很重要，但我知道这并不理想——也许为CSS使用外部文件可以工作

library(shiny)

ui <- fluidPage(
  tags$head(
  tags$style(HTML(type = "text/css", "
      .irs-grid-text {font-family: 'arial'; color: white !important; bottom: 17px; z-index: 1; }
    "))),
  sliderInput(inputId="test", label=NULL, min=1, max=10, value=5, step = 1, width='100%')
)

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

shinyApp(ui = ui, server=server)

库（闪亮）
ui此外，您可以将
.js-irs-0
放在CSS中以引用滑块。我放红色的是为了展示

color = "orange"
ui <- fluidPage(
  tags$style(type = "text/css", "
     .js-irs-0 .irs-grid-text {font-family: 'arial'; color: red; bottom: 1px; z-index: 1;}
    "),
  setSliderColor(color,c(1)),
  sliderInput(inputId="test", label=NULL, min=1, max=10, value=5, step = 1, width='100%')
)

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

shinyApp(ui = ui, server=server)

color=“橙色”
ui此外，您可以将
.js-irs-0
放在CSS中以引用滑块。我放红色的是为了展示

color = "orange"
ui <- fluidPage(
  tags$style(type = "text/css", "
     .js-irs-0 .irs-grid-text {font-family: 'arial'; color: red; bottom: 1px; z-index: 1;}
    "),
  setSliderColor(color,c(1)),
  sliderInput(inputId="test", label=NULL, min=1, max=10, value=5, step = 1, width='100%')
)

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

shinyApp(ui = ui, server=server)

color=“橙色”
ui我想你需要更改背景他们正在更改为白色字体，你看不到他们，因为背景也是白色的。请尝试使用
tags$style（type=“text/css”，“.irs网格文本{font-family:'arial'；color:white；bottom:17px；z-index:1；背景色：#007BA7；}），
我在rstudio云中做这件事，但它们对我来说似乎是黑色的。检查编辑如果您是对的，在RStudio cloud中运行时，字体颜色没有改变，似乎您的css正在被名为ion.RangeSlaider.csi的文件中的css覆盖。我猜您需要更改背景他们正在更改为白色字体，你看不到它们，因为背景也是白色的。试试
标签$style（type=“text/css”，“.irs网格文本{font-family:'arial'；颜色：白色；底部：17px；z-index:1；背景色：#007BA7；}”），
我在rstudio云中做这件事，我觉得它们还是黑色的。检查编辑如果您是对的，在RStudio cloud中运行时，字体颜色没有改变，似乎您的css正在被名为ion.RangeSlaider.cssyes的文件中的css覆盖感谢感谢感谢感谢