pages_def_home.R 4.73 KB
Newer Older
jlopez's avatar
Proto  
jlopez committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
tabHome = fluidPage(align="left",
  
                    column(width = 2,
                           box(
                               title = "Params",
                               width = NULL,
                               collapsible = TRUE,
                               solidHeader = TRUE,
                               status="primary",
                               
                               textInput("imageName", "Image Name", ""),
                               br(),
                               radioButtons("containerType", "Container type:", choices = list("Singularity" = "singularity"), selected = "singularity"),
                               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
17
18
19
20
                               selectizeInput('rtemplate', 'R origin:', choices = c(`None` = 'none', `R from source` = 'source', `R from r-base` = 'base', `R from CRAN depo` = 'cran'), selected = "source", multiple = FALSE),
                               #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
                             title = "Packages and tools",
jlopez's avatar
Proto  
jlopez committed
30
31
32
33
34
35
36
37
38
                             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
39
40
41
42
                                            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
43
                                          tabPanel('Github',
jlopez's avatar
jlopez committed
44
45
                                            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
46
                                            div(id = "formGithub",
jlopez's avatar
jlopez committed
47
                                            br(), br(),
jlopez's avatar
jlopez committed
48
                                            selectizeInput('rgithubpackagelist', 'R Github selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
jlopez's avatar
jlopez committed
49
                                            br(), br(),
jlopez's avatar
jlopez committed
50
                                            DT::dataTableOutput('dtrgithubpackage'))),
jlopez's avatar
jlopez committed
51
                                          tabPanel('BioContainer tools',
jlopez's avatar
jlopez committed
52
                                                   div(id = "formContainer",
jlopez's avatar
jlopez committed
53
                                                       br(),
jlopez's avatar
jlopez committed
54
                                                   selectizeInput('selectedBiocontainer', 'Biocontainer tools selected:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000))),
jlopez's avatar
jlopez committed
55
56
                                                   DT::dataTableOutput('dtbiocontainer')
                                                   )
jlopez's avatar
Proto  
jlopez committed
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
                             )
                          )
                    ),
                    column(width = 12,
                           box(
                             title = "Preview File:",
                             width = NULL,
                             collapsible = TRUE,
                             solidHeader = TRUE,
                             status="primary",
                             style='height:1000px; overflow-y: scroll',
                             verbatimTextOutput("previewContainer")
                           )
                    )
                    
)