Skip to content
Navigation Menu
Toggle navigation
Sign in
In this repository
All GitHub Enterprise
↵
Jump to
↵
No suggested jump to results
In this repository
All GitHub Enterprise
↵
Jump to
↵
In this user
All GitHub Enterprise
↵
Jump to
↵
In this repository
All GitHub Enterprise
↵
Jump to
↵
Sign in
Reseting focus
You signed in with another tab or window.
Reload
to refresh your session.
You signed out in another tab or window.
Reload
to refresh your session.
You switched accounts on another tab or window.
Reload
to refresh your session.
Dismiss alert
{{ message }}
fdabbagh
/
shiny-app
Public
Notifications
You must be signed in to change notification settings
Fork
0
Star
0
Code
Issues
0
Pull requests
0
Actions
Projects
0
Security
Insights
Additional navigation options
Code
Issues
Pull requests
Actions
Projects
Security
Insights
Files
128fe62
app
functions
check_project.r
combat_batch_effect.r
convert_to_link.r
dnase1_score_matrix.r
extract_metadata.r
inserted_chr_list.r
inserted_ui.r
list_experiments.r
matrix_summary_table.r
pie_chart.r
plot_correlation.r
plot_pca_labels.r
plotly_pca.r
plotting_rna_seq_ontology_compare.r
rna_seq_data.r
ruv_batch_effect.r
sample_summary.r
score_matrix_annotations.r
score_matrix_tiling_regions.r
supervised_sva_batch_effect.r
sva_batch_effect.r
server
www
.gitignore
README.md
Breadcrumbs
shiny-app
/
functions
/
inserted_ui.r
Blame
Blame
Latest commit
History
History
48 lines (41 loc) · 2.33 KB
Breadcrumbs
shiny-app
/
functions
/
inserted_ui.r
Top
File metadata and controls
Code
Blame
48 lines (41 loc) · 2.33 KB
Raw
inserted_ui <- function(user_key,user_name,echo, id, genomes) { #The deepblue echo message as character # user <- deepblue_echo(user_key = user_key) #If user key is wrong, user get a message that he wasn't recognized and anonymous_key is used #else the user is greeted with his/her name # if (tail(strsplit(user, split = " ")[[1]], n=1) == "Stranger"){ if (user_name == "a Stranger"){ user_key <- "anonymous_key" showNotification(paste("User key was not recognized, the anonymous key will be used instead", paste(echo, collapse = " ")), type = "message", duration = 5) }else{ user_key <- user_key showNotification(paste(echo, collapse = " "), type = "message", duration = 5) } #progress bar for loading the UI withProgress(message = "Getting Projects, Epigenetics Marks, Chromosomes and Tests",min = 0, max = 2, value = 0, { #Incrememnting progress bar manually incProgress(amount = 1, message = "building input UI") insertUI(selector = '#addOptions', where = "afterBegin", #We wrap the element in a div with id to remove it when the restart buttong pressed ui = tags$div( id = id, shinydashboard::box(collapsible = TRUE, selectInput('genome', "Select Genome", c(genomes$name)), selectInput('project', 'Select Project',choices = ""), selectInput('epigenetic_mark', 'Select a Data Type', c("Gene Expression",deepblue_list_epigenetic_marks(user_key = user_key)$name), multiple = F), actionButton('list_exper_btn', "List Experiments"), checkboxInput("filter_coverage", "Filter coverage files", TRUE) ) ) ) incProgress(amount = 1, message = "done") }) return(id) }
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
You can’t perform that action at this time.