Sort saample set names

fbreitwieser · Oct 4, 2017 · 6c62294 · 6c62294
1 parent ed56fe5
commit 6c62294
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 6 deletions.
diff --git a/.gitignore b/.gitignore
@@ -1,5 +1,4 @@
 .Rproj.user
 .Rhistory
 .RData
-*.swp
-*.orig
+.Ruserdata
diff --git a/R/datainput-module.R b/R/datainput-module.R
@@ -162,7 +162,7 @@ dataInputModule <- function(input, output, session,
   output$uploaded_sample_sets <- renderUI({
     req(sample_sets$val)
     req(names(sample_sets$val))
-
+    sample_set_names <- sort(names(sample_sets$val))
     box(
       width = 12,
       collapsible = TRUE,
@@ -175,8 +175,8 @@ dataInputModule <- function(input, output, session,
         radioButtons(
           ns("sample_set_select"),
           label = NULL,
-          choices = names(sample_sets$val),
-          selected = names(sample_sets$val)[1]
+          choices = sample_set_names,
+          selected = sample_set_names[1]
         )
         )
       ),

diff --git a/R/shinyapp-server.R b/R/shinyapp-server.R
@@ -69,7 +69,7 @@ pavianServer <- function(input, output, session) {
   sample_sets <- callModule(dataInputModule, "datafile")
   observeEvent(sample_sets$val,{
     if (length(sample_sets$val) > 0) {
-      sample_set_names <- names(sample_sets$val)
+      sample_set_names <- sort(names(sample_sets$val))
       #sample_set_names["Upload data ..."] <- "upload_files"
       #shinyjs::enable("btn_remove_cache_files")
       shinyjs::show("sample_set_names")