如何更改滑块输入值的大小闪亮仪表板

Question

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

滑块上的 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 返回的一个滑块输入的文本大小，您可以将滑块包装在一个 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。