如何修改闪亮R侧边栏中的输入属性答案

【问题标题】：How modify properties of a input in a sidebar on shiny R如何修改闪亮R侧边栏中的输入属性
【发布时间】：2021-11-11 00:50:03
【问题描述】：

我正在尝试扩展我的侧边栏和输入，但我的 css 不起作用。

 dashboardSidebar(       
              width = 500,
                withMathJax(),
                   sliderInput(inputId = "alpha", "mysliderInput",
                               label=(helpText(c("Escolha o valor de $\\alpha$:"))),
                               min = 0.01, max = 10, value = 3.48, step = .1,
                               animate = animationOptions(interval = 300, loop = T)),
                   sliderInput(inputId = "delta", "mysliderInput",
                               label=(helpText(c("Escolha o valor de $\\delta$:"))),
                               min = 0.01, max = 10, value = 0.88, step = .1,
                               animate = animationOptions(interval = 300, loop = T)),
                   sliderInput(inputId = "sigma", "mysliderInput",
                               label=(helpText(c("Escolha o valor de $\\sigma$:"))),
                               min = 0.01, max = 10, value = 2.06, step = .1,
                               animate = animationOptions(interval = 300, loop = T)),
                   sliderInput(inputId = "gama", "mysliderInput",
                               label=(helpText(c("Escolha o valor de $\\gamma$:"))),
                               min = 0.01, max = 10, value = 2.97, step = .1,
                               animate = animationOptions(interval = 300, loop = T)),
                   sliderInput(inputId = "eta", "mysliderInput",
                               label=(helpText(c("Escolha o valor de $\\eta$:"))),
                               min = 0.01, max = 10, value = 4.98, step = .1,
                               animate = animationOptions(interval = 300, loop = T)),
                   sliderInput(inputId = "lambda", "mysliderInput",
                               label=(helpText(c("Escolha o valor de $\\lambda$:"))),
                               min = 0.01, max = 10, value = 9.8, step = .1,
                               animate = animationOptions(interval = 300, loop = T)),
             tags$head(
                tags$style(HTML("#mysliderInput{width: 500px;}}"
                )))

我想改变宽度和字体大小。 My sidebar code with inputs

【问题讨论】：

您能否提供问题所需的ui 和server 代码，以便完全重现问题以及必要的数据（如果需要）？
您是否尝试过在sliderInput() 中使用width='500px' 而不是使用css？无论如何，您正在使用“mysliderinput”，如类或 id，当它不在此上下文中时，它在您的代码中对应的参数是“min”。

标签： css r input shiny sidebar

【解决方案1】：

您可以直接使用sliderInput 宽度参数。这是一个最小的例子：

library(shiny)

ui <- dashboardPage(dashboardHeader(),
                    dashboardSidebar(       
                        width = 500,
                        sliderInput(inputId = "alpha", "mysliderInput",
                                    label=(helpText(c("Escolha o valor de $\\alpha$:"))),
                                    min = 0.01, max = 10, value = 3.48, step = .1, width = '500px',
                                    animate = animationOptions(interval = 300, loop = T)) 
                    ),
                    dashboardBody()
                    
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)

【讨论】：

谢谢你的工作