localuserpassword <- "CrowdVision2018"
tsadev <- dbConnect(RMariaDB::MariaDB(),user="tsadev",
password=localuserpassword, dbname='tsadev',host='tsadev.ci71sbjd5rvy.eu-
west-1.rds.amazonaws.com')

table <- tbl(tsadev, sql("SELECT 1,2,3,4,5,6,7,8,9,10,11,12 FROM heatmap "))

##### HEATMAP


my_palette <- colorRampPalette(c("black","grey"))

heatmap.2(data.matrix(table), dendrogram='none', Rowv=TRUE, Colv=TRUE,
main="", trace="none", col=my_palette, labRow = TRUE, labCol = FALSE,
key=FALSE, symkey=FALSE)