Leandro Roser authored on 19/04/2018 23:50:03
| 1 | 1 |
new file mode 100644 |
| ... | ... |
@@ -0,0 +1,93 @@ |
| 1 |
+ |
|
| 2 |
+panel1Input <- function (id) {
|
|
| 3 |
+ ns <- NS(id) |
|
| 4 |
+ |
|
| 5 |
+ |
|
| 6 |
+ tabPanel("File Operations", sidebarLayout(
|
|
| 7 |
+ |
|
| 8 |
+ sidebarPanel(width = 3, class = "sideBar", |
|
| 9 |
+ h3("FastqCleaner"),
|
|
| 10 |
+ p("A program to clean FASTQ files"),
|
|
| 11 |
+ br(), |
|
| 12 |
+ hr(), |
|
| 13 |
+ br(), |
|
| 14 |
+ div() # .well.sideBar div |
|
| 15 |
+ ), |
|
| 16 |
+ |
|
| 17 |
+ mainPanel( |
|
| 18 |
+ |
|
| 19 |
+ # input/output --------------------------------- |
|
| 20 |
+ fluidRow( |
|
| 21 |
+ br(), |
|
| 22 |
+ column(6, class = "left", |
|
| 23 |
+ h3(class = "blackTag", "Input/Output")), |
|
| 24 |
+ column(3, class = "right"), |
|
| 25 |
+ br(), br(), br(), br(), br() |
|
| 26 |
+ ), |
|
| 27 |
+ |
|
| 28 |
+ fluidRow( |
|
| 29 |
+ column(6, |
|
| 30 |
+ p(class = "results", "File input:"), |
|
| 31 |
+ div(style = "width:80%", |
|
| 32 |
+ verbatimTextOutput(ns("filepath")))
|
|
| 33 |
+ ), |
|
| 34 |
+ column(6, |
|
| 35 |
+ p(class = "results", "File output:"), |
|
| 36 |
+ div(style = "width:80%", |
|
| 37 |
+ verbatimTextOutput(ns("outResult")))
|
|
| 38 |
+ ), |
|
| 39 |
+ br(), br(), br(), br(), br() |
|
| 40 |
+ ), |
|
| 41 |
+ |
|
| 42 |
+ # file operations ------------------------------ |
|
| 43 |
+ fluidRow( |
|
| 44 |
+ br(), |
|
| 45 |
+ # esta funcion permite enviar mensajes |
|
| 46 |
+ column(6, class = "left", |
|
| 47 |
+ h3(class = "blackTag", |
|
| 48 |
+ "File operations") |
|
| 49 |
+ ), |
|
| 50 |
+ column(3, class = "right"), |
|
| 51 |
+ br(), br(), br(), br(), br() |
|
| 52 |
+ ), |
|
| 53 |
+ |
|
| 54 |
+ # Outputs right --------------------------------------------- |
|
| 55 |
+ fluidRow( |
|
| 56 |
+ |
|
| 57 |
+ column(6, |
|
| 58 |
+ p(class = "results", "N filter output:"), |
|
| 59 |
+ div(style = "width:80%", |
|
| 60 |
+ verbatimTextOutput(ns("N"))),
|
|
| 61 |
+ p(class = "results", "Low complexity filter output:"), |
|
| 62 |
+ div(style = "width:80%", |
|
| 63 |
+ verbatimTextOutput(ns("lowComplexFilter"))),
|
|
| 64 |
+ p(class = "results", "Adapter filter output:"), |
|
| 65 |
+ div(style = "width:80%", |
|
| 66 |
+ verbatimTextOutput(ns("adaptFilter"))),
|
|
| 67 |
+ p(class = "results", "Average quality filter output:"), |
|
| 68 |
+ div(style = "width:80%", |
|
| 69 |
+ verbatimTextOutput(ns("meanQFilter")))
|
|
| 70 |
+ ), |
|
| 71 |
+ |
|
| 72 |
+ # outputs left -------------------------------------------------- |
|
| 73 |
+ column(6, |
|
| 74 |
+ p(class = "results", "Low quality 3' tails filter output:"), |
|
| 75 |
+ div(style = "width:80%", |
|
| 76 |
+ verbatimTextOutput(ns("TrimQual"))),
|
|
| 77 |
+ p(class = "results", "Fixed-length tails trim output:"), |
|
| 78 |
+ div(style = "width:80%", |
|
| 79 |
+ verbatimTextOutput(ns("trimTails"))),
|
|
| 80 |
+ p(class = "results", "Length filter output:"), |
|
| 81 |
+ div(style = "width:80%", |
|
| 82 |
+ verbatimTextOutput(ns("sizeFilter"))),
|
|
| 83 |
+ p(class = "results", "Duplicated filter output:"), |
|
| 84 |
+ div(style = "width:80%", |
|
| 85 |
+ verbatimTextOutput(ns("DuplicFilter")))
|
|
| 86 |
+ ) |
|
| 87 |
+ |
|
| 88 |
+ ) # end fluidRow |
|
| 89 |
+ |
|
| 90 |
+ ) # end mainpanel |
|
| 91 |
+ ) # end sidebarLayout |
|
| 92 |
+ ) # end tabpanel |
|
| 93 |
+} |