The immediate problem is that seq() is receiving something other than a single value for its from parameter — here supplied as input$slider[1]/100. You need to trace what exactly input$slider[1] delivers and why it's not as expected. I suspect the problem lies in what you're doing with minkaw and maxkaw, but since the code isn't runnable as provided, it's difficult to say for sure what's wrong.
You might take a look at our FAQ on Shiny debugging and Shiny reprex-ing: