Update LONGO.r

Fixed ordering of datasets from BioMart to allow transformation to data frame

R/LONGO.r

@@ -60,7 +60,7 @@ LONGO <- function() {
         host="www.ensembl.org")
     datasets <- biomaRt::listDatasets(ensembl)
     datasets <- datasets[1]
-    datasets <- datasets[order(datasets[1]),]
+    datasets <- datasets[order(datasets$dataset), ]
     datasets <- as.data.frame(datasets)
     ui <- shiny::shinyUI({
         shiny::navbarPage("LONGO",