シャイニーのスライダー入力のマイナーティックを削除/隠す

Question

マイナーティック（メジャーダミーではない）をsliderInput()から削除/隠したいと思います。たとえば、シャイニーアプリのデフォルトの例であるOld Faithful Geyser Dataでは、ヒストグラムにいくつかのビンを選択するためのsliderInput()があります。ビンの数は常に整数です。だから、sliderInput()の小目盛りを隠したり削除したりして、ビン番号のメジャーティックだけを表示すると良いでしょう。シャイニーアプリの

デフォルト例：これはsliderInput()から（主要なダニを含む）すべてのダニを除去し、

sliderInput("bins", 
      label = "Number of bins:", 
      min = 1, 
      max = 10, 
      value = 1, 
      ticks = FALSE) 

しかし：

library(shiny) 

# Define UI for application that draws a histogram 
ui <- fluidPage(

    # Application title 
    titlePanel("Old Faithful Geyser Data"), 

    # Sidebar with a slider input for number of bins 
    sidebarLayout(
     sidebarPanel(
     sliderInput("bins", 
       "Number of bins:", 
       min = 1, 
       max = 10, 
       value = 1) 
    ), 

    # Show a plot of the generated distribution 
    mainPanel(
     plotOutput("distPlot") 
    ) 
) 
) 

# Define server logic required to draw a histogram 
server <- function(input, output) { 

    output$distPlot <- renderPlot({ 
    # generate bins based on input$bins from ui.R 
    x <- faithful[, 2] 
    bins <- seq(min(x), max(x), length.out = input$bins + 1) 

    # draw the histogram with the specified number of bins 
    hist(x, breaks = bins, col = 'darkgray', border = 'white') 
    }) 
} 

# Run the application 
shinyApp(ui = ui, server = server) 

私はこのようなsliderInput()でtick = FALSEを試してみました。

アドバンスすべてのヘルプありがとうございます。

Answer 1

CSSをtags$style(type = "text/css", ".irs-grid-pol.small {height: 0px;}")で上書きすることができます。 CSSはhttps://github.com/IonDen/ion.rangeSlider/issues/171で見つけることができます。

結果sliderInput()は、整数のみのためティックが表示されます。

shinyApp(
    ui <- fluidPage(
    tags$style(type = "text/css", ".irs-grid-pol.small {height: 0px;}"), 
    sliderInput("bins", "Number of bins:", 1, 10, 1) 
), 
    server <- function(input, output) {} 
)