Nothing
tab_upload <- tabItem(
tabName = "upload",
align = "center",
#Upload files
h1("Upload your files"),
fluidPage(
br(),
#Upload metabolites
column(
width = 3,
div(
id = "upload_metabolites",
br(),
fileInput(
inputId = "file_samples",
label = "Choose your metabolic files:",
multiple = FALSE,
accept = c(
"CSV",
".csv",
"TSV",
".tsv",
"TXT",
".txt",
"ZIP",
".zip",
"GZ",
".gz"
)
)
),
#Upload phenotypes
div(
id = "upload_phenotypes",
br(),
fileInput(
inputId = "file_phenotypes",
label = "Choose your phenotype file (optional):",
multiple = FALSE,
accept = c(
"CSV",
".csv",
"TSV",
".tsv",
"TXT",
".txt",
"ZIP",
".zip",
"GZ",
".gz"
)
)
),
br(),
#Example Synthetic Dataset
h5(strong("Example dataset:")),
div(
actionButton('load_synth_data', 'Load Example dataset'),
),
br(),
div(
shinySaveButton("downloadData", "Download Example dataset", "Save file as...",
filetype = list(zip = ".zip"), filename = paste0("metabolic_predictors_example_dataset"),
viewtype = "icon"),
),
br(),
),
# Explanation
column(
width = 9,
uiOutput("get_started"),
br(),
),
style = "position: center; border-radius: 20px; border: 2px solid #0088cc;'width:100px;'",
),
HTML('<hr style="border-color: #0088cc;">'),
#Tables with the column names found in the files
fluidPage(
h3(strong("Variables names recognised")),
textOutput("required_met"),
br(),
column(
width = 6,
div(
DT::dataTableOutput("found_met") %>% withSpinner()
)
),
column(
width = 6,
div(
DT::dataTableOutput("found_phen") %>% withSpinner(),
)
),
),
helpText("Red= are required to continue; Orange= not found but optional; Green= found."),
br(),
#Table with the uploaded files
div(id = "data tabs",
tabsetPanel(
#Metabolic measurements table
tabPanel(
"Metabolic measurements",
HTML('<hr style="border-color: #0088cc;">'),
DT::dataTableOutput("metabo_table") %>% withSpinner(),
HTML('<hr style="border-color: #0088cc;">')
),
#Phenotypes table
tabPanel(
"Phenotypic variables",
HTML('<hr style="border-color: #0088cc;">'),
DT::dataTableOutput("pheno_table") %>% withSpinner(),
helpText("All the phenotypic variables available in your dataset"),
HTML('<hr style="border-color: #0088cc;">')
),
#Phenotypes binarized with our thresholds table
tabPanel(
"Binarized phenotypic variables",
HTML('<hr style="border-color: #0088cc;">'),
DT::dataTableOutput("bin_pheno_table") %>% withSpinner(),
helpText("These is the set of the binarized phenotypic variables available in your dataset that we will use for the accuracy"),
HTML('<hr style="border-color: #0088cc;">')
)
)
)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.