pages_def_home.R 7.7 KB
Newer Older
jlopez's avatar
Proto    
jlopez committed
1
tabHome = fluidPage(align="left",
jlopez's avatar
jlopez committed
2
3
4
5
6
7
8
9
10
                    
                    column(width = 12,
                           box(
                             title = "Help",
                             width = NULL,
                             collapsible = TRUE,
                             status="primary",
                             solidHeader = TRUE,
                             tags$b("Bioinformatics tools: "),
jlopez's avatar
jlopez committed
11
                             p("Select each tool by clicking on the corresponding field in the table. They appear in the field below."),
khalid's avatar
khalid committed
12
                             tags$b("CRAN R Packages: "),
jlopez's avatar
jlopez committed
13
                             p("Select each tool by clicking on the corresponding field in the table. They appear in the field below."),
khalid's avatar
khalid committed
14
                             tags$b("Bioconductor R Packages: "),
jlopez's avatar
jlopez committed
15
                             p("Select each tool by clicking on the corresponding field in the table. They appear in the field below."),
jlopez's avatar
jlopez committed
16
                             tags$b("Github R Packages: "),
jlopez's avatar
jlopez committed
17
                             p("Select each tool by clicking on the corresponding field in the table. They appear in the field below."),
jlopez's avatar
jlopez committed
18
                             p("Use 'Generate' button to generate your recipe in the preview area then copy/paste the text or use dowload button to get your file."),
jlopez's avatar
jlopez committed
19
                             tags$b("To build the image from the recipes file named ubuntu6.10_stacks2.0.simg :"),
khalid's avatar
khalid committed
20
                             p("sudo singularity build ubuntu6.10_stacks2.0.simg ubuntu6.10_stacks2.0.recipes"),
jlopez's avatar
jlopez committed
21
                             tags$b("To run a program inside the image container :"),
khalid's avatar
khalid committed
22
23
                             p(" singularity exec ubuntu6.10_stacks2.0.simg python --version "),
                             p("singularity exec ubuntu6.10_stacks2.0.simg python -c 'import pysam; print 2*2'")
jlopez's avatar
jlopez committed
24
                           )),
jlopez's avatar
Proto    
jlopez committed
25
26
27
28
29
30
31
32
33
34
35
  
                    column(width = 2,
                           box(
                               title = "Params",
                               width = NULL,
                               collapsible = TRUE,
                               solidHeader = TRUE,
                               status="primary",
                               
                               textInput("imageName", "Image Name", ""),
                               br(),
jlopez's avatar
Fix    
jlopez committed
36
                               selectizeInput('fromTemplate', 'From:', choices = c(`ubuntu:16.04` = 'ubuntu:16.04', `r-base` = 'r-base'), selected = "r-base", multiple = FALSE),
jlopez's avatar
jlopez committed
37
                               br(),
jlopez's avatar
jlopez committed
38
                               radioButtons("containerType", "Container type:", choices = list("Singularity" = "singularity", "Docker" = "docker"), selected = "singularity"),
jlopez's avatar
Proto    
jlopez committed
39
                               br(),
jlopez's avatar
Fix bug    
jlopez committed
40
                               #selectizeInput('rcranpackagelist', 'R CRAN:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
jlopez's avatar
Fix    
jlopez committed
41
                               selectizeInput('rtemplate', 'R origin:', choices = c(`None` = 'none', `R from source 3.4.3` = 'source', `R from source 3.4.4` = 'source2', `R from source 3.5.0` = 'source3', `R from r-base` = 'base', `R from CRAN depo` = 'cran'), selected = "none", multiple = FALSE),
jlopez's avatar
jlopez committed
42
43
44
45
                               #selectizeInput('biocontainers', 'BioContainers tools :', choices = getBioconductorPackage(), multiple = TRUE),
                               
                               
                               
jlopez's avatar
Proto    
jlopez committed
46
47
                               textAreaInput("customDataContainer", "Add custom line to container file:"),
                               br(), br(),
jlopez's avatar
jlopez committed
48
                              
jlopez's avatar
jlopez committed
49
                               actionButton("createContainer", label = "Generate", icon("paper-plane"), style="color: #fff; background-color: #337ab7; border-color: #2e6da4"),
jlopez's avatar
Proto    
jlopez committed
50
51
52
53
54
                               downloadButton('downloadContainerFile', label = "Dowload",  style="color: #fff; background-color: #337ab7; border-color: #2e6da4")
                               
                           )),
                    column(width = 10,
                           box(
jlopez's avatar
jlopez committed
55
                             id = "boxPackage",
jlopez's avatar
jlopez committed
56
                             title = "Packages and tools",
jlopez's avatar
Proto    
jlopez committed
57
58
59
60
61
                             width = NULL,
                             collapsible = TRUE,
                             solidHeader = TRUE,
                             status="primary",
                             tabsetPanel( id='rpackages',
jlopez's avatar
jlopez committed
62
63
64
65
                                          tabPanel('Bioinformatics tools',
                                                   div(id = "formContainer",
                                                       br(),
                                                       selectizeInput('selectedBiocontainer', 'Biocontainer tools selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000))),
jlopez's avatar
jlopez committed
66
                                                   
jlopez's avatar
jlopez committed
67
68
                                                   DT::dataTableOutput('dtbiocontainer')
                                          ),
jlopez's avatar
jlopez committed
69
70
71
72
73
74
75
                                          tabPanel('CRAN Packages', 
                                                   div(id = "formCRAN",
                                                    selectizeInput('selectedCRAN', 'CRAN package selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000))
                                                   ,
                                          
                                                    withSpinner(DT::dataTableOutput('dtrcranpackage'), type = 4, proxy.height = "150px")
                                                  )
jlopez's avatar
Proto    
jlopez committed
76
                                          ),
jlopez's avatar
jlopez committed
77
                                          tabPanel('Bioconductor Packages',   
jlopez's avatar
jlopez committed
78
79
80
                                            div(id = "formBioconductor",
                                            #  br(),
                                            #selectizeInput('selectedBioconductor', 'R Bioconductor selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
jlopez's avatar
jlopez committed
81
                                            selectizeInput('selectedConductor', 'Bioconductor package selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
jlopez's avatar
jlopez committed
82
                                            
jlopez's avatar
jlopez committed
83
                                            DT::dataTableOutput('dtrbioconductorpackage'))),
jlopez's avatar
jlopez committed
84
                                          tabPanel('Github R Packages',
jlopez's avatar
jlopez committed
85
86
                                            textInput("inputGithub", "Package name:", ""),
                                            actionButton("findGithub", label = "Find", icon("paper-plane"), style="color: #fff; background-color: #337ab7; border-color: #2e6da4"),
jlopez's avatar
jlopez committed
87
                                            div(id = "formGithub",
jlopez's avatar
jlopez committed
88
                                            br(), br(),
jlopez's avatar
jlopez committed
89
                                            selectizeInput('rgithubpackagelist', 'R Github selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
jlopez's avatar
jlopez committed
90
                                            
jlopez's avatar
jlopez committed
91
                                            br(), br(),
jlopez's avatar
jlopez committed
92
93
                                            DT::dataTableOutput('dtrgithubpackage')))
                                          
jlopez's avatar
Proto    
jlopez committed
94
95
96
97
98
99
100
101
102
103
104
                             )
                          )
                    ),
                    column(width = 12,
                           box(
                             title = "Preview File:",
                             width = NULL,
                             collapsible = TRUE,
                             solidHeader = TRUE,
                             status="primary",
                             style='height:1000px; overflow-y: scroll',
jlopez's avatar
jlopez committed
105
                             textAreaInput("previewContainer", label = "", height = "1000px")
jlopez's avatar
Proto    
jlopez committed
106
107
108
109
                           )
                    )
                    
)