将 % 添加到滑块刻度中的值 - 闪亮的仪表板

Question

我尝试使用 post = "%" 将 % 添加到滑块栏中的值，但它没有将 % 添加到滑块下方刻度中的值。请帮我在滑块下方的值中添加 %。

请查看图片以获得进一步说明，

library(shiny)
library(shinydashboard)

ui <- dashboardPage(skin = "black",
                    dashboardHeader(title = "test"),
                    dashboardSidebar(
                      sidebarMenu(
                        menuItem("Complete", tabName = "comp"))),
                    dashboardBody(
                      tabItems(
                        tabItem(tabName = "comp",
                                fluidRow(
                                  sliderInput("range_var", "", value = 1, min = 1, max = 10, width = '100%', post  = " %")          
                                )))))

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

shinyApp(ui, server)

谢谢， SJB

Answer 1

您可以使用一些 CSS 手动添加 %：

dashboardBody(
  tags$style(type = "text/css", ".irs-grid-text:after {content: '%';}"),
  tabItems(...)
  ...
)