inst/shinyapp/R/analysis.R

In joneslabemory/xMWAS: xMWAS: R package for data-integration and differential network analysis

library(shiny)

analysis<-fluidRow(
          column(12,tags$h4('Pairwise integrative analysis')),
          column(12,tags$div(
                   column(6,selectInput(width="250px","xmwasmethod","Choose a data integration method:",c("sPLS","PLS","OPLS"))),
                   column(6,selectInput(width="150px","plsmode","Choose PLS mode:",c("canonical","regression")))
                   )),
          column(12,tags$div(
                        column(6,numericInput(width="300px","numcomps", "Number of components to use in PLS model:", 5, min = 1, max = 100)),
                        column(6,radioButtons("optselect", "Find optimal number of PLS components?", inline=TRUE,c(True = "TRUE",False = "FALSE"),selected = "TRUE"))
                    )
          ),
          conditionalPanel(
            condition = "input.xmwasmethod=='sPLS'",
            column(12,tags$div(
              column(6,numericInput(width="380px","keepX", "Maximum #datasetA variables to select in sPLS:", 1000, min = 1, max = 100000)),
              column(6,numericInput(width="380px","keepY", "Maximum #datasetB variables to select in sPLS:", 1000, min = 1, max = 100000))
            )),
            column(12,tags$div(
              column(6,uiOutput("spls_dataC")),
              column(6,uiOutput("spls_dataD"))
            ))
          ),
          column(style="padding-top:0px;padding-bottom:0px;",12,tags$hr(style="margin-top:0;margin-bottom:3px;border-top: 1px solid #000000;")),
          column(12,tags$h4('Association analysis')),
          column(12,tags$div(
                 column(6,numericInput("corthresh", "Correlation Threshold:", 0.4, min = 0, max = 1)),
                 column(6,numericInput("rawPthresh", "P-value Threshold For Student’s T-test:", 0.05, min = 0, max = 1))
          ))
)