时间戳

首页 > 解决方案 > 将 % 添加到滑块刻度中的值 - 闪亮的仪表板

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

问题描述

我尝试使用 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

标签： rshinyshinydashboard

解决方案

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

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

推荐阅读