diff --git a/program/shinyApp/R/C.R b/program/shinyApp/R/C.R index f55d99b2..c4e3b28a 100644 --- a/program/shinyApp/R/C.R +++ b/program/shinyApp/R/C.R @@ -299,6 +299,11 @@ guide <<- Cicerone$ description = "These are the different tabs currently available. You can switch between them by clicking on the tab names. Each tab has a different purpose. Note, that more tabs will appear after the mandatory tabs Data selection and Pre-processing (not visible yet). As soon as the Pre-processing is done the analysis tabs will appear - those do not have to be completed in a specific order - they work independently from each other." )$ + step( + el = "firstQ", + title = "Question Marks", + description = "Click on theese to get more help on the particular tagged item. (Do not click on this during this guide, you can try it out afterwards) " + )$ step( el = "UsefulLinks", title = "Useful Links", diff --git a/program/shinyApp/R/data_selection/ui.R b/program/shinyApp/R/data_selection/ui.R index 80ab154d..a74be7b6 100644 --- a/program/shinyApp/R/data_selection/ui.R +++ b/program/shinyApp/R/data_selection/ui.R @@ -89,7 +89,7 @@ data_selection_sidebar_panel <- sidebarPanel( label = HTML('Upload data matrix
(rows entities, cols samples)
Download example data (Transcriptomics, human)
'), accept = c(".csv", ".xlsx"), width = "80%" - ) %>% helper(type = "markdown", content = "DataSelection_MetaData"), + ) %>% helper(type = "markdown", content = "DataSelection_MetaData",style = "font-size: 24px;"), shiny::fileInput( inputId = "metadataInput", label = HTML("Upload your Meta Data Sheet (currently replaces sample annotation)"), diff --git a/program/shinyApp/ui.R b/program/shinyApp/ui.R index e9d8ba7f..c987abb5 100644 --- a/program/shinyApp/ui.R +++ b/program/shinyApp/ui.R @@ -96,6 +96,10 @@ ui <- shiny::fluidPage( width: 90%; max-width: 90%; } + .shinyhelper-container { + font-size: 24px; + color: darkred !important; + } #sidebar_data_selection { background-color: #70BF4F47; }