fix duplicate sliders

[yonicd]

closes #70, #76

[yonicd]

this does not create duplicate slides any longer in when rendering in shiny

library(shiny)
library(slickR)

ui <- fluidPage(

    mainPanel(
     
      slickROutput("slickr", width="100%"),
      
      actionButton("submit", "An action button")
      
    )

)

server <- function(input, output) {
  
 load_random_images <- function(x) {
    sample(slickR::nba_player_logo$uri,5)
 }

  
  output$slickr <- renderSlickR({
    input$submit

    slickR(load_random_images(), height = 400, width = "100%",
           padding = 0) + 
      settings(dots = TRUE, infinite = FALSE,
               slidesToShow =  1,
               centerMode =FALSE,
              adaptiveHeight = TRUE)   
  })
  
}

shinyApp(ui = ui, server = server)

[LaytonWashburn]

The main carousel is not duplicated anymore! It's now just the thumbnail being duplicated.

[yonicd]

Thanks for the feedback. Will circle back to this PR to check it out again

[yonicd]

@LaytonWashburn can you give an example of duplicate thumbnails? I cant seem to reproduce that behavior