title: Handling and optimizing a range slider in R
body: <p>If you run the script below, You get a data table representing iris data and a range slider which gives you values greater than and equal to the chosen point on the prior circle of your selection in the slider. I want a logic such that when left slider node is kept at say 5 and right slider at 7, I want the data to be displayed "= and above 5" and "&lt; and equal to 7".These values however should be dynamic. Also for the two circles on the sliders, is there a way to give triangle widgets which are small in size. Attaching the snapshot for reference. Thanks and please help.</p>
  
  <pre><code>#App
  library(shiny)
  library(shinydashboard)
  library(dplyr)
  library(scales)
  library(DT)
  
  #Declaring the UI
  ui &lt;- fluidPage(
  titlePanel("Slider Test"),
  fluidRow(
  column(4,
           sliderInput("range", "Select the Name Similarity %",
                       min = 4, max = 8,
                       value = c(min,max) ))
  
  ),
  
  # Create a new row for the table.
  fluidRow(
  DT::dataTableOutput("table")
  )
  )
  #Declaring the Server
  server &lt;- function(input, output) {
  output$table &lt;- DT::renderDataTable(DT::datatable({
  Prod_total1      &lt;-  subset(iris, as.numeric(sub("%", "", 
  iris$Sepal.Length)) &gt;= input$range)
    Prod_total1
  }))
  }
  shinyApp(ui, server)
  </code></pre>
  
  <p><a href="https://i.stack.imgur.com/Was6Y.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Was6Y.png" alt="Slider Snapshot"></a></p>