title: Button in Slider malfunctioning
body: <p>I have a problem with my slider. It doesn't show divisions up to number 13 and the button check doesn't work when I press it. What should I do to fix it? Please, help.</p>
  <p>Here is the code I wrote:</p>
  <pre><code>library(shiny)
  library(readr)
  
  # GiuseppeData &lt;- read_csv(&quot;Classes_with_Giuseppe.csv&quot;)
  GiuseppeData &lt;- structure(list(number_of_classes = c(&quot;1_class&quot;, &quot;2_class&quot;, &quot;3_class&quot;,
                                                       &quot;4_class&quot;, &quot;5_class&quot;, &quot;6_class&quot;, &quot;7_class&quot;, &quot;8_class&quot;, &quot;9_class&quot;, &quot;10_class&quot;,
                                                       &quot;11_class&quot;, &quot;12_class&quot;, &quot;13_class&quot;, &quot;14_class&quot;, &quot;15_class&quot;, &quot;16_class&quot;,
                                                       &quot;17_class&quot;, &quot;18_class&quot;), 
                                 length_of_classes = c(2.24, 2.37, 2.14, 2.18, 2.28,
                                                       2.3, 2.32, 2.24, 2.36, 2.38, 2.21, 2.25, 2.17, 2.17, 2, 2.1, 2.05, 2.2)),
                                 row.names = c(NA, -18L),
                                 class = &quot;data.frame&quot;)
  
  ui &lt;- fluidPage(
    titlePanel(&quot;Hello Giuseppe!&quot;),
    sidebarLayout(
      sidebarPanel(
        sliderInput(inputId = &quot;rows&quot;,
                    label = &quot;Amount of Classes&quot;,
                    min = 1,
                    max = nrow(GiuseppeData),
                    value = 7, step = 1,
                    animate = animationOptions(interval = 600, loop = TRUE)),
        actionButton(
          inputId = &quot;check&quot;,
          label = &quot;Check&quot;
        )
      ),
      mainPanel(
        plotOutput(outputId = &quot;distPie&quot;)
      )
    )
  )
  
  server &lt;- function(input, output) {
    output$distPie &lt;- renderPlot({
      x &lt;- GiuseppeData[1:input$rows,]$length_of_classes
      pie(x, col = &quot;76776&quot;, border = &quot;pink&quot;,
          xlab = &quot;Pie of Length of Each Class (in hours)&quot;,
          main = &quot;Pie of Classes&quot;)
    })
  }
  
  shinyApp(ui = ui, server = server)
  </code></pre>