Read the project scope into a vector from the template config file.

Sage-Bionetworks · Jan 2, 2024 · c28db5a · c28db5a
1 parent a5532ba
commit c28db5a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/server.R b/server.R
@@ -546,9 +546,9 @@ shinyServer(function(input, output, session) {
     # If project_scope is missing from dca_template_config.json then
     # this value will be NULL and cross-manifest validation won't happen.
     # validation will occur.
-    project_scope <- config_schema()[[1]]$project_scope[which(config_schema()[[1]]$display_name == input$dropdown_template)]
+    project_scope <- config_schema()[[1]]$project_scope[[which(config_schema()[[1]]$display_name == input$dropdown_template)]]
     selected$project_scope(project_scope)
-    
+
     # clean all tags related with selected template
     sapply(clean_tags, FUN = hide)
   }, ignoreInit = TRUE)