SOLUTION
Data <- downloadHandler(
filename = function(){
paste("normalized",".txt")
},
content = function(file1){
#reading it as matrix as normalized data is sparse matrix
write.table(data.frame(**as.matrix(v$scData@data)**), file1, quote = F, row.names = T, col.names = T, sep = "\t")
}
)