empty

head(cars, params$rows)

##    speed dist
## 1      4    2
## 2      4   10
## 3      7    4
## 4      7   22
## 5      8   16
## 6      9   10
## 7     10   18
## 8     10   26
## 9     10   34
## 10    11   17

print(paste("Choice is:", params$column, sep=" "))

## [1] "Choice is: speed"

print(paste("Slider input is:", params$slider, sep=" "))

## [1] "Slider input is: 2"