output$TextTable <- renderTable({ varsub }, width = "92%", include.colnames = TRUE, spacing = "xs", sanitize.text.function = identity)
##I want to download this renderable using a download button or link.