pages_def_home.R 5.89 KB
Newer Older
jlopez's avatar
Proto  
jlopez committed
1
2
3
4
5
6
7
8
9
10
11
12
tabHome = fluidPage(align="left",
  
                    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
13
                               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
14
                               br(),
jlopez's avatar
jlopez committed
15
                               radioButtons("containerType", "Container type:", choices = list("Singularity" = "singularity", "Docker" = "docker"), selected = "singularity"),
jlopez's avatar
Proto  
jlopez committed
16
                               br(),
jlopez's avatar
Fix bug    
jlopez committed
17
                               #selectizeInput('rcranpackagelist', 'R CRAN:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
jlopez's avatar
Fix    
jlopez committed
18
                               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
19
20
21
22
                               #selectizeInput('biocontainers', 'BioContainers tools :', choices = getBioconductorPackage(), multiple = TRUE),
                               
                               
                               
jlopez's avatar
Proto  
jlopez committed
23
24
                               textAreaInput("customDataContainer", "Add custom line to container file:"),
                               br(), br(),
jlopez's avatar
jlopez committed
25
                               p("Use button create for generate your file and the dowload button for get your file."),
jlopez's avatar
Proto  
jlopez committed
26
27
28
29
30
31
                               actionButton("createContainer", label = "Create", icon("paper-plane"), style="color: #fff; background-color: #337ab7; border-color: #2e6da4"),
                               downloadButton('downloadContainerFile', label = "Dowload",  style="color: #fff; background-color: #337ab7; border-color: #2e6da4")
                               
                           )),
                    column(width = 10,
                           box(
jlopez's avatar
jlopez committed
32
                             id = "boxPackage",
jlopez's avatar
jlopez committed
33
                             title = "Packages and tools",
jlopez's avatar
Proto  
jlopez committed
34
35
36
37
38
                             width = NULL,
                             collapsible = TRUE,
                             solidHeader = TRUE,
                             status="primary",
                             tabsetPanel( id='rpackages',
jlopez's avatar
jlopez committed
39
40
41
42
43
44
45
46
47
                                          tabPanel('Bioinformatics tools',
                                                   div(id = "formContainer",
                                                       br(),
                                                       selectizeInput('selectedBiocontainer', 'Biocontainer tools selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000))),
                                                   p("Add your tools by clicking on the corresponding fields in the table. They appear in the field so below."),
                                                   DT::dataTableOutput('dtbiocontainer')
                                          ),
                                          tabPanel('CRAN Packages',    
                                            p("Search your package in the filed call 'Package'  and click on the name of your package to select it."),
jlopez's avatar
Proto  
jlopez committed
48
49
                                            withSpinner(DT::dataTableOutput('dtrcranpackage'), type = 4, proxy.height = "150px")
                                          ),
jlopez's avatar
jlopez committed
50
                                          tabPanel('Bioconductor Packages',   
jlopez's avatar
jlopez committed
51
52
53
                                            div(id = "formBioconductor",
                                            #  br(),
                                            #selectizeInput('selectedBioconductor', 'R Bioconductor selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
jlopez's avatar
jlopez committed
54
                                            p("Search your package in the filed call 'Package'  and click on the name of your package to select it."),
jlopez's avatar
jlopez committed
55
                                            DT::dataTableOutput('dtrbioconductorpackage'))),
jlopez's avatar
jlopez committed
56
                                          tabPanel('Github R Packages',
jlopez's avatar
jlopez committed
57
58
                                            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
59
                                            div(id = "formGithub",
jlopez's avatar
jlopez committed
60
                                            br(), br(),
jlopez's avatar
jlopez committed
61
                                            selectizeInput('rgithubpackagelist', 'R Github selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
jlopez's avatar
jlopez committed
62
                                            p("Add your tools by clicking on the corresponding fields in the table. They appear in the field so below."),
jlopez's avatar
jlopez committed
63
                                            br(), br(),
jlopez's avatar
jlopez committed
64
65
                                            DT::dataTableOutput('dtrgithubpackage')))
                                          
jlopez's avatar
Proto  
jlopez committed
66
67
68
69
70
71
72
73
74
75
76
                             )
                          )
                    ),
                    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
77
                             textAreaInput("previewContainer", label = "", height = "1000px")
jlopez's avatar
Proto  
jlopez committed
78
79
80
81
                           )
                    )
                    
)