pages_def_home.R 4.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
jlopez committed
13
                               radioButtons("containerType", "Container type:", choices = list("Singularity" = "singularity", "Docker" = "docker"), selected = "singularity"),
jlopez's avatar
Proto  
jlopez committed
14
                               br(),
jlopez's avatar
Fix bug    
jlopez committed
15
                               #selectizeInput('rcranpackagelist', 'R CRAN:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
jlopez's avatar
jlopez committed
16
                               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 = "source", multiple = FALSE),
jlopez's avatar
jlopez committed
17
18
19
20
                               #selectizeInput('biocontainers', 'BioContainers tools :', choices = getBioconductorPackage(), multiple = TRUE),
                               
                               
                               
jlopez's avatar
Proto  
jlopez committed
21
22
23
24
25
26
27
28
                               textAreaInput("customDataContainer", "Add custom line to container file:"),
                               br(), br(),
                               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
29
                             id = "boxPackage",
jlopez's avatar
jlopez committed
30
                             title = "Packages and tools",
jlopez's avatar
Proto  
jlopez committed
31
32
33
34
35
36
37
38
39
                             width = NULL,
                             collapsible = TRUE,
                             solidHeader = TRUE,
                             status="primary",
                             tabsetPanel( id='rpackages',
                                          tabPanel('CRAN',    
                                            withSpinner(DT::dataTableOutput('dtrcranpackage'), type = 4, proxy.height = "150px")
                                          ),
                                          tabPanel('Bioconductor',   
jlopez's avatar
jlopez committed
40
41
42
43
                                            div(id = "formBioconductor",
                                            #  br(),
                                            #selectizeInput('selectedBioconductor', 'R Bioconductor selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
                                            DT::dataTableOutput('dtrbioconductorpackage'))),
jlopez's avatar
Proto  
jlopez committed
44
                                          tabPanel('Github',
jlopez's avatar
jlopez committed
45
46
                                            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
47
                                            div(id = "formGithub",
jlopez's avatar
jlopez committed
48
                                            br(), br(),
jlopez's avatar
jlopez committed
49
                                            selectizeInput('rgithubpackagelist', 'R Github selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
jlopez's avatar
jlopez committed
50
                                            br(), br(),
jlopez's avatar
jlopez committed
51
                                            DT::dataTableOutput('dtrgithubpackage'))),
jlopez's avatar
jlopez committed
52
                                          tabPanel('BioContainer tools',
jlopez's avatar
jlopez committed
53
                                                   div(id = "formContainer",
jlopez's avatar
jlopez committed
54
                                                       br(),
jlopez's avatar
jlopez committed
55
                                                   selectizeInput('selectedBiocontainer', 'Biocontainer tools selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000))),
jlopez's avatar
jlopez committed
56
57
                                                   DT::dataTableOutput('dtbiocontainer')
                                                   )
jlopez's avatar
Proto  
jlopez committed
58
59
60
61
62
63
64
65
66
67
68
                             )
                          )
                    ),
                    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
69
                             textAreaInput("previewContainer", label = "", height = "1000px")
jlopez's avatar
Proto  
jlopez committed
70
71
72
73
                           )
                    )
                    
)