Commit 2afaa630 authored by Thomas Schwarzl's avatar Thomas Schwarzl

Downloadhandler bug fix #3

parent e7ae4c09
Pipeline #14648 passed with stage
in 1 minute and 44 seconds
......@@ -685,11 +685,37 @@ server <- function(input, output, session) {
})
DownloadSelectedRBPTable <- reactive({
cat("test")
SelectedRBPTable() %>%
dplyr::select(-Overview) %>%
change_col_names(ALLANNO = ALLANNO)
})
# downloader
output$downloadRBPTableCSV <- downloadHandler_RBPTableCSV
output$downloadRBPTableCSV <- downloadHandler(
filename = function() {
paste0("RBPbase_Download_", Sys.Date() , ".csv")
},
content = function(file) {
write.csv( DownloadSelectedRBPTable(),
file,
row.names = F )
}
)
# downloader
output$downloadRBPTableTSV <- downloadHandler_RBPTableTSV
output$downloadRBPTableTSV <- downloadHandler(
filename = function() {
paste0("RBPbase_Download_", Sys.Date() , ".tsv")
},
content = function(file) {
write.tsv( DownloadSelectedRBPTable(),
file,
row.names = F )
}
)
# downloader
output$downloadFilterTSV <- downloadHandler_FilterTSV
......
......@@ -174,7 +174,7 @@ get_tooltip_for_ricbaseid <- function(x, ALLANNO) {
change_col_names <- function(x, ALLANNO) {
colnames(x) <- get_descriptive_for_ricbaseid(colnames(x))
colnames(x) <- get_descriptive_for_ricbaseid(x = colnames(x), ALLANNO = ALLANNO)
x
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment