app/UI.R

In JesseRed/dataVis: What the Package Does (One Line, Title Case)

#UI.R
cat(file = stderr(), getwd())
#setwd("..")
library(shiny)
library(shinydashboard)
#setwd("D:/Programming/dataVIS")
#source("./app/module_test.R")
# source("./modules/compare_trials_stats.R")
#
# source("./modules/overview_plot.R")
# source("./modules/compare_diff_of_diff_stats.R")
# source("./modules/compare_trials_plot.R")
# source("./modules/compare_group_stats.R")
# source("./functions/map2colors.R")
# #source("./functions/get_data.R")
#
# source("./modules/regression_stats.R")
# #source("./modules/anova_stats.R")
#
# #source("./app/preprocess_data.R")
# #source("./app/preprocessing.R")
#
# #source("./app/module_test.R")
# source("./functions/preprocess_data.R")
#source("./modules/preprocessing.R")
pathnames <- list.files(pattern="[.]R$", path="functions", full.names=TRUE);
sapply(pathnames, FUN=source);
pathnames <- list.files(pattern="[.]R$", path="modules", full.names=TRUE);
sapply(pathnames, FUN=source);

ui <- dashboardPage(
  dashboardHeader(title = "Biomag Visualizer"),
  dashboardSidebar(
    sidebarMenu(id ="mySidebarMenu",
      menuItem("data root dir", tabName = "datarootdir", icon = icon("file-export")),
      menuItem("preprocess data", tabName = "preprocessmydata", icon = icon("file-upload"), startExpanded = FALSE,
               menuSubItem("Data import",
                           tabName = "preprocessdata",
                           icon = icon('line-chart')),
               menuSubItem("Merge Data",
                           tabName = "mergedata",
                           icon = icon('line-chart'))
               ),
      menuItem(id = "xxx1", "show data", tabName = "showdata", icon = icon("th"), startExpanded = TRUE,
               menuSubItem("MRI-RS",
                           tabName = "RSTab",
                           icon = icon('line-chart')),
               # menuSubItem("connectivity",
               #             tabName = "ConnectivityTab",
               #             icon = icon('line-chart')),
               menuSubItem("Coherence",
                           tabName = "CoherenceTab",
                           icon = icon('line-chart')),
               menuSubItem("Transferentropy",
                           tabName = "TransferentropyTab",
                           icon = icon('line-chart')),
               menuSubItem("Granger",
                           tabName = "GrangerTab",
                           icon = icon('line-chart')),
               menuSubItem("Frequency",
                           tabName = "FrequencyTab",
                           icon = icon('line-chart')),
               menuSubItem("ERP",
                           tabName = "ERPTab",
                           icon = icon('line-chart')),

               menuSubItem("pure Behavioral",
                           tabName = "BehTab",
                           icon = icon('line-chart'))
      ),
      menuItem("load data", tabName = "loaddata", icon = icon("file-export"), startExpanded = TRUE,
               menuSubItem(icon = NULL, uiOutput("RefreshButton")),
               menuSubItem(icon = NULL, uiOutput("selectDirRS")),
               # menuSubItem(icon = NULL, uiOutput("selectDirCon")),
               menuSubItem(icon = NULL, uiOutput("selectDirCoh")),
               menuSubItem(icon = NULL, uiOutput("selectDirTra")),
               menuSubItem(icon = NULL, uiOutput("selectDirGra")),
               menuSubItem(icon = NULL, uiOutput("selectDirFre")),
               menuSubItem(icon = NULL, uiOutput("selectDirERP")),
               menuSubItem(icon = NULL, uiOutput("selectDirBeh"))
      ),
      menuItem("global Inputs", tabName = "xxx", icon = icon("globe"), startExpanded = TRUE,
               menuSubItem(icon = NULL, uiOutput("freq")),
               menuSubItem(icon = NULL, uiOutput("glob_sig")),
               menuSubItem(icon = NULL, uiOutput("p_cor_method"))
               #menuSubItem(icon = NULL, uiOutput("p_cor_num"))
      ),
      menuItem("visulizing properties", tabName = "xxx", icon = icon("image"), startExpanded = TRUE,
               menuSubItem(icon = NULL, uiOutput("visprop_onlysig")),
               menuSubItem(icon = NULL, uiOutput("visprop_color")),
               menuSubItem(icon = NULL, uiOutput("visprop_inlinenumbers"))
      ),
      menuItem("Image Save", tabName = "xxx", icon = icon("save"), startExpanded = FALSE,
               menuSubItem(icon = NULL, uiOutput("saveimageButton")),
               menuSubItem(icon = NULL, uiOutput("saveimagefilename")),
               menuSubItem(icon = NULL, uiOutput("saveimageheight")),
               menuSubItem(icon = NULL, uiOutput("saveimagewidth")),
               menuSubItem(icon = NULL, uiOutput("saveimagedpi")),
               menuSubItem(icon = NULL, uiOutput("saveimagefontsize")),
               menuSubItem(icon = NULL, uiOutput("saveimagefileformat"))

      )
      #menuItem("Options", tabName = "OptionsTab", icon = icon("wrench")),

      # menuItem("load data", tabName = "loaddata1", icon = icon("th"),
      #          menuSubItem(icon = NULL, uiOutput("freq")),
      #          menuSubItem(icon = NULL, uiOutput("glob_sig"))
      # ),
      #selectInput("HumanTrafficking", "Choose a trafficking type: ", list("Victim", "Trafficker")),

      #textOutput("res")
    )
  ),
  dashboardBody(
    # Boxes need to be put in a row (or column)
    tabItems(
      # First tab content
      tabItem(tabName = "dashboard",
              fluidRow(
                box(plotOutput("plot1", height = 250)),

                box(
                  title = "Controls",
                  sliderInput("slider", "Number of observations:", 1, 100, 50)
                )

              )
      ),

      # Second tab content
      tabItem(tabName = "OptionsTab",
              uiOutput("tabsOpt")
      ),
      tabItem(tabName = "datarootdir",
              #h2("preprocess data about here"),
              box(
                title = "data root dir seletion",
                width = 12,
                datarootdirUI("datarootdir")
              )
      ),
      tabItem(tabName = "preprocessdata",
              #h2("preprocess data about here"),
              box(
                title = "preprocessing",
                width = 12,
                preprocessingUI("preprocessing")
              )
      ),
      tabItem(tabName = "mergedata",
              #h2("preprocess data about here"),
              box(
                title = "merge data",
                width = 12,
                mergedataUI("mergedata")
              )
      ),
      tabItem(tabName = "ConnectivityTab",
              uiOutput("tabsCon")
      ),
      tabItem(tabName = "CoherenceTab",
              uiOutput("tabsCoh")
      ),
      tabItem(tabName = "TransferentropyTab",
              #uiOutput("tabsCon")
              uiOutput("tabsTra")
      ),
      tabItem(tabName = "FrequencyTab",
              uiOutput("tabsFre")
      ),
      tabItem(tabName = "GrangerTab",
              uiOutput("tabsGra")
      ),
      tabItem(tabName = "ERPTab",
              uiOutput("tabsERP")
      ),
      tabItem(tabName = "RSTab",
              uiOutput("tabsRS")
      ),
      tabItem(tabName = "BehTab",
              uiOutput("tabsBeh")
      )


    )
)

)