Add additional shiny functions to convert

* `reactiveValuesToList()` -> `as.list()`

* `withProgress()` account for this the same way as `eventReactive()`

Can be nested:
```r
df <- eventReactive({
   withProgress(message = "", {
     ...
  })
})
```