pages_def_home.R 6.83 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: "),
khalid's avatar
khalid committed
11
                             p("Select each tool by clicking on the corresponding field in the table. "),
jlopez's avatar
jlopez committed
12
                             br(),
khalid's avatar
khalid committed
13
14
                             tags$b("CRAN R Packages: "),
                             p("Search your package in the filed 'Package' and click on the name of your package to select it."),
jlopez's avatar
jlopez committed
15
                             br(),
khalid's avatar
khalid committed
16
17
                             tags$b("Bioconductor R Packages: "),
                             p("Search your package in the filed 'Package' and click on the name of your package to select it."),
jlopez's avatar
jlopez committed
18
19
                             br(),
                             tags$b("Github R Packages: "),
khalid's avatar
khalid committed
20
21
                             p("Add your tools by clicking on the corresponding field in the table. They appear in the field so below."),
                             br(),
jlopez's avatar
jlopez committed
22
23
                             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."),
                             br()
jlopez's avatar
jlopez committed
24
25
                             
                           )),
jlopez's avatar
Proto  
jlopez committed
26
27
28
29
30
31
32
33
34
35
36
  
                    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
37
                               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
38
                               br(),
jlopez's avatar
jlopez committed
39
                               radioButtons("containerType", "Container type:", choices = list("Singularity" = "singularity", "Docker" = "docker"), selected = "singularity"),
jlopez's avatar
Proto  
jlopez committed
40
                               br(),
jlopez's avatar
Fix bug    
jlopez committed
41
                               #selectizeInput('rcranpackagelist', 'R CRAN:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
jlopez's avatar
Fix    
jlopez committed
42
                               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
43
44
45
46
                               #selectizeInput('biocontainers', 'BioContainers tools :', choices = getBioconductorPackage(), multiple = TRUE),
                               
                               
                               
jlopez's avatar
Proto  
jlopez committed
47
48
                               textAreaInput("customDataContainer", "Add custom line to container file:"),
                               br(), br(),
jlopez's avatar
jlopez committed
49
                              
jlopez's avatar
jlopez committed
50
                               actionButton("createContainer", label = "Generate", icon("paper-plane"), style="color: #fff; background-color: #337ab7; border-color: #2e6da4"),
jlopez's avatar
Proto  
jlopez committed
51
52
53
54
55
                               downloadButton('downloadContainerFile', label = "Dowload",  style="color: #fff; background-color: #337ab7; border-color: #2e6da4")
                               
                           )),
                    column(width = 10,
                           box(
jlopez's avatar
jlopez committed
56
                             id = "boxPackage",
jlopez's avatar
jlopez committed
57
                             title = "Packages and tools",
jlopez's avatar
Proto  
jlopez committed
58
59
60
61
62
                             width = NULL,
                             collapsible = TRUE,
                             solidHeader = TRUE,
                             status="primary",
                             tabsetPanel( id='rpackages',
jlopez's avatar
jlopez committed
63
64
65
66
                                          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
67
                                                   
jlopez's avatar
jlopez committed
68
69
70
                                                   DT::dataTableOutput('dtbiocontainer')
                                          ),
                                          tabPanel('CRAN Packages',    
jlopez's avatar
jlopez committed
71
                                            
jlopez's avatar
Proto  
jlopez committed
72
73
                                            withSpinner(DT::dataTableOutput('dtrcranpackage'), type = 4, proxy.height = "150px")
                                          ),
jlopez's avatar
jlopez committed
74
                                          tabPanel('Bioconductor Packages',   
jlopez's avatar
jlopez committed
75
76
77
                                            div(id = "formBioconductor",
                                            #  br(),
                                            #selectizeInput('selectedBioconductor', 'R Bioconductor selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
jlopez's avatar
jlopez committed
78
                                            
jlopez's avatar
jlopez committed
79
                                            DT::dataTableOutput('dtrbioconductorpackage'))),
jlopez's avatar
jlopez committed
80
                                          tabPanel('Github R Packages',
jlopez's avatar
jlopez committed
81
82
                                            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
83
                                            div(id = "formGithub",
jlopez's avatar
jlopez committed
84
                                            br(), br(),
jlopez's avatar
jlopez committed
85
                                            selectizeInput('rgithubpackagelist', 'R Github selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
jlopez's avatar
jlopez committed
86
                                            
jlopez's avatar
jlopez committed
87
                                            br(), br(),
jlopez's avatar
jlopez committed
88
89
                                            DT::dataTableOutput('dtrgithubpackage')))
                                          
jlopez's avatar
Proto  
jlopez committed
90
91
92
93
94
95
96
97
98
99
100
                             )
                          )
                    ),
                    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
101
                             textAreaInput("previewContainer", label = "", height = "1000px")
jlopez's avatar
Proto  
jlopez committed
102
103
104
105
                           )
                    )
                    
)