inst/shinyapp/R/graphopt.R

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

library(shiny)

graphopt<-fluidRow(
  column(12,tags$div(
         column(6,numericInput("label_cex", "Size of the Labels:", 0.25, min = 0, max = 100))
  )),
  column(12,tags$div(
         column(6,numericInput("vertex_size", "Size of the Nodes:", 7, min = 5, max = 100)),
         column(6,numericInput("seednum", "Seed for Random Number Generator:", 100, min = 1, max = 1000))
  )),
  column(12,tags$div(
         column(8,numericInput("max_connections", "Maximum number of associations to include in the network (any numeric value >0 or -1 to use all):", -1, width='400px'))
  )),
  column(12,tags$div(column(6,radioButtons("use_X_reference", "Use dataset A as reference?", inline=TRUE,c(True = "TRUE",False = "FALSE"),selected = "FALSE"))  
  )),
column(12,tags$div(
    column(6,selectInput(width="300px","net_node_shapeA","Node shape for dataset A:",c("square","circle","triangle","star","rectangle","csquare","crectangle","vrectangle"))),
    column(6,selectInput(width="300px","net_node_shapeB","Node shape for dataset B:",c("circle","square","triangle","star","rectangle","csquare","crectangle","vrectangle"))))),
column(12,tags$div(
column(6,selectInput(width="300px","net_node_shapeC","Node shape for dataset C:",c("triangle","square","circle","star","rectangle","csquare","crectangle","vrectangle"))),
column(6,selectInput(width="300px","net_node_shapeD","Node shape for dataset D:",c("star","square","circle","triangle","rectangle","csquare","crectangle","vrectangle")))))
)