inst/shiny-apps/shinyGEO/ui/ui.tab.expression.R

In jasdumas/shinyGEO: Gene Expression Omnibus Analysis with Shiny

############################################################
# Expression Profiles
############################################################
              ### add a contional panel that only show this once loaded
tab.expression = tabItem(tabName = "Home",
		 conditionalPanel(condition = "output.sidebarDisplay=='ALL'",
                     #  h4("Determine if these samples are fair to compare by observing the graphical appearance & profiles values."),

#         <h3 class='panel-title' style = \'font-weight: bold\'>Primary Contributors</h3>


		div(class = 'panel panel-default', #style = "display: inline-block;",
			div(class = 'panel-heading',
				h4(class = 'panel-title', style = 'font-weight: bold',"Dataset Summary")
			),
			div(class = 'panel-body',
		  		uiOutput("summary"),
		 	  	a(id = "normLink", "(View expression profiles)",style="cursor:pointer")
			)
		)

),
                # possibly use formatBSModal with applyID = "saveExp"
		bsModal("normalizationModal", "Expression Profiles", "normLink", size = "large",
                      # radioButtons("radio", label = "Select a method of log transformation to apply to the data", 
                       #             choices = list("Auto-Detect" = 1, "Yes" = 2, "No" = 3), 
                        #            selected = 1, inline = TRUE),
			bsAlert("expAlert"),
                       plotOutput("exProfiles") 
		),

		DT::dataTableOutput("clinicalDataSummarySummary")
)