Add additional shiny functions to convert

[rjake]

• reactiveValuesToList() -> as.list()

• withProgress() account for this the same way as eventReactive()

Can be nested:

df <- eventReactive({
   withProgress(message = "", {
     ...
  })
})