MC-update- 2019.10.11 10am

SumedhSankhe · Oct 11, 2019 · fc3fc7c · fc3fc7c
1 parent c3cfab0
commit fc3fc7c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/Prepare_example_datasets.R b/Prepare_example_datasets.R
@@ -32,7 +32,7 @@ annotation <- OV_SRM_train_annotation
 
 variance_estimation <- estimateVar(data, annotation)
 save(variance_estimation, file = "variance_estimation.rda" )
-meanSDplot(variance_estimation)
+meanSDplot(variance_estimation, address=FALSE)
 
 designSampleSizeHypothesisTesting(data = OV_SRM_train,
                                   annotation= OV_SRM_train_annotation,

diff --git a/ui.R b/ui.R
@@ -23,17 +23,15 @@ side <- dashboardSidebar(
     sidebarMenu(id="tabs",
                 menuItem("Home", tabName="home", icon = icon("home")),
                 menuItem("Import Data",
-                         tabName="import_data", icon = icon("file-import")
-                ),
+                         tabName="import_data", icon = icon("file-import")),
                 ## Use of conditionalPanel in place of subMenuItem, ref. https://github.com/rstudio/shinydashboard/issues/86
                 conditionalPanel("input.tabs === 'import_data'", 
                          #startExpanded=TRUE,
                          div(class="custom-sidebar-output",
                              selectInput("data_format", "Select data type", 
                                          choices=list("Protein-level quantification"="standard", 
                                                       "Example from MSstatsSampleSize"="examples"))),
-                         htmlOutput("select_files", class="custom-sidebar-output",)
-                ),
+                         htmlOutput("select_files", class="custom-sidebar-output",)),
                 menuItem("Simulate datasets", 
                         tabName="explore_simulated", icon=icon("project-diagram")),
                 menuItem("Analyze the simulated datasets",