r - 如何更改 slider 输入值的大小shinydashboard

Question

我意识到关于如何更改 Shiny 仪表板的 sliderInput 文本大小有很多问题/答案，但我仍然遇到问题。我的输出如下所示:

slider 上的 x 轴值太小。渲染sliderInput的代码是:

    # Data description
    observeEvent(input$btnDescr, {
            output$descr_daterange <- renderUI({
                    sliderInput(inputId='descr_daterange',
                                label='Select Time Period',
                                min = as.Date(min(inputData$qcdata$LDT)),
                                max = as.Date(max(inputData$qcdata$LDT)),
                                value = c(as.Date(min(inputData$qcdata$LDT)),as.Date(max(inputData$qcdata$LDT))
                                )
                    )
            })
    }),

应用程序的 ui <- ... 部分中的相应代码是

uiOutput("descr_daterange')

更改 x 轴文本大小所需的代码是什么？它在哪里？我尝试了很多事情，但没有运气。我认为它涉及到这段代码，但我仍然放置在错误的位置，或者其他什么。

tags$style(type='HTML', ".irs-grid-text { font-size: 10pt; }")

Answer 1

如果您只想更改从 renderUI 返回的一个 sliderInput 的文本大小，您可以将 slider 包装在 div 中，为其指定一个唯一的 ID，然后将 CSS 样式仅应用于该输入。您应该能够将 Tags$style 放置在 UI 或 renderUI 中，但这里是一个非常小的示例，其中 renderUI 中的样式将所有内容放在一起。我们需要使用 tagList() 在 renderUI 中从服务器返回多个 UI 元素。

library(shiny)

ui <- fluidPage(
uiOutput('ui_norm'),
uiOutput('ui_big')
)

server <- function(input, output, session) {
  output$ui_norm <- renderUI({
      sliderInput('in1', 'Slider', min = 1, max = 10, value = 5)
  })
  
  output$ui_big <- renderUI({
  tagList(
    tags$style(type = 'text/css', '#big_slider .irs-grid-text {font-size: 20px}'), 
    div(id = 'big_slider',
      sliderInput('in2', 'Slider', min = 1, max = 10, value = 5)
       )#div close
      )#taglst close
  })
}

shinyApp(ui, server)

注意，tags$style 中的 # 用于选择 id = big_slider 的元素，这是我们的 div。