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;
}