@@ -136,6 +136,7 @@ run_carnation <- function(credentials=NULL, passphrase=NULL, enable_admin=TRUE,
136136
137137 icon = icon(" sliders-h" ), width = " 400px" ,
138138 size = ' sm' ,
139+ inputId = " global_settings" ,
139140
140141 tooltip = tooltipOptions(title = " Global settings" )
141142
@@ -316,6 +317,7 @@ run_carnation <- function(credentials=NULL, passphrase=NULL, enable_admin=TRUE,
316317
317318 icon = icon(" gear" ), width = " 400px" ,
318319 size = ' sm' ,
320+ inputId = " tab_settings" ,
319321
320322 tooltip = tooltipOptions(title = " Settings" )
321323
@@ -400,6 +402,7 @@ run_carnation <- function(credentials=NULL, passphrase=NULL, enable_admin=TRUE,
400402
401403 icon = icon(" clipboard" ), width = " 400px" ,
402404 size = ' sm' ,
405+ inputId = " scratchpad" ,
403406
404407 tooltip = tooltipOptions(title = " Gene scratchpad" )
405408
@@ -442,7 +445,9 @@ run_carnation <- function(credentials=NULL, passphrase=NULL, enable_admin=TRUE,
442445 ) # conditionalPanel
443446 ), # column
444447 column(9 , style = ' margin-top: 20px' ,
445- DTOutput(' analysis_desc' )
448+ conditionalPanel(' input.data_type == "Existing"' ,
449+ DTOutput(' analysis_desc' )
450+ ) # conditionalPanel
446451 )
447452 ), # fluidRow
448453
0 commit comments