ui.R 5.87 KB
Newer Older
Stephanie's avatar
Stephanie committed
1 2 3
## app.R ##
library(shiny)
library(shinydashboard)
4 5 6 7
#library(jsonlite)
library(anytime)
#library(leaflet)

Stephanie's avatar
Stephanie committed
8

Stephanie's avatar
Stephanie committed
9
ui <- dashboardPage(
10 11
  skin="purple",
  
Stephanie's avatar
Stephanie committed
12 13 14 15
  dashboardHeader(title="CoCoVisR"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Upload", tabName = "upload", icon =icon("upload")),
16
      menuItem("Data", tabName = "data", icon =icon("list")),
Stephanie's avatar
Stephanie committed
17 18 19 20 21
      menuItem("Contolls", tabName = "controlls", icon = icon("cog")),
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
      menuItem("Help", tabName = "help", icon = icon("book"))
    )
  ),
22
  
Stephanie's avatar
Stephanie committed
23
  dashboardBody(
24 25 26 27
    #tags$head(
    #  tags$link(rel = "stylesheet", type = "text/css", href = "custom.css")
    #),
    
Stephanie's avatar
Stephanie committed
28 29 30
    tabItems(
      # Upload tab content
      tabItem(tabName = "upload",
31 32 33 34 35 36 37 38 39 40 41 42 43 44
              h2("Upload here:"),
              fileInput("file1", "Select CoConUT Data (*.json):",
                        multiple = FALSE,
                        accept = c(
                          "text/json",
                          "text/comma-separated-values,text/plain",
                          ".json")),
              fileInput("file2", "Select CoCoQuest Data (*.json):",
                        multiple = FALSE,
                        accept = c(
                          "text/json",
                          "text/comma-separated-values,text/plain",
                          ".json"))
              
45
              
Stephanie's avatar
Stephanie committed
46 47
      ),
      
48 49 50
      #show data tab content
      tabItem(tabName = "data",
              
51 52
                h2("CoConUT Data here:"),
                
53
                dataTableOutput("file1"),
54 55 56 57
               
                
                h2("CoCoQuest Data here:"),
                dataTableOutput("file2")
58 59 60 61
              
      ),
      
      
Stephanie's avatar
Stephanie committed
62 63
      # Controlls tab content
      tabItem(tabName = "controlls",
64
              h2("Controlls here:"),
65 66
              
              #TODO: SelectInput --> Get data out of loaded json to select it
67
              checkboxInput("histogram", "Histogram", FALSE),
68 69
              selectInput('in1', "x-Axis: " , "Bluetoothdevices", multiple=TRUE, selectize=TRUE),
              selectInput('in4', "y-Axis: " , "Bluetoothdevices", multiple=TRUE, selectize=TRUE),
70
              checkboxInput("timeline", "Timeline", FALSE),
71 72
              selectInput('in2', "x-Axis: " , "Bluetoothdevices", multiple=TRUE, selectize=TRUE),
              selectInput('in4', "y-Axis: " , "Bluetoothdevices", multiple=TRUE, selectize=TRUE),
73
              checkboxInput("map", "Map", FALSE),
74 75 76 77 78
              selectInput('in3', "x-Axis: " , "Bluetoothdevices", multiple=TRUE, selectize=TRUE),
              selectInput('in4', "y-Axis: " , "Bluetoothdevices", multiple=TRUE, selectize=TRUE),
              checkboxInput("lingegraph","Linegraph",FALSE),
              selectInput('in4', "x-Axis: " , "Bluetoothdevices", multiple=TRUE, selectize=TRUE),
              selectInput('in4', "y-Axis: " , "Bluetoothdevices", multiple=TRUE, selectize=TRUE)
Stephanie's avatar
Stephanie committed
79 80 81 82 83 84
      ),
      
      # Dashboard tab content
      tabItem(tabName = "dashboard",
              h2("This is the Dashboard"),
              fluidRow(
85 86 87 88 89 90 91 92 93
                #tabBox(
                  #title = "First tabBox",
                  # The id lets us use input$tabset1 on the server to find the current tab
                  #id = "tabset1", height = "250px",
                  #tabPanel("Tab1", "First tab content"),
                  #tabPanel("Tab2", "Tab content 2")
                #),
                
                #if(menuitem$controls$histogram ==TRUE){
Stephanie's avatar
Stephanie committed
94
                box(  title="Histogram",
95
                      status= "warning",
Stephanie's avatar
Stephanie committed
96 97 98
                      solidHeader = TRUE,
                      collapsible = TRUE,
                      plotOutput("plot1", height = 250)),
99 100
                #},

Stephanie's avatar
Stephanie committed
101
                box(title="Map",
102
                    status = "warning",
Stephanie's avatar
Stephanie committed
103 104
                    solidHeader = TRUE,
                    collapsible = TRUE,
105
                    plotOutput("plot2", height = 250)),
Stephanie's avatar
Stephanie committed
106
                box(title="Timeline",
107
                    status = "warning",
Stephanie's avatar
Stephanie committed
108 109 110
                    solidHeader = TRUE,
                    collapsible = TRUE,plotOutput("plot3", height = 250)),
                box(title="Linechart",
111
                    status = "warning",
Stephanie's avatar
Stephanie committed
112 113
                    solidHeader = TRUE,
                    collapsible = TRUE,plotOutput("plot4", height = 250))
114
            
Stephanie's avatar
Stephanie committed
115 116 117 118 119
              )
      ),
      
      # Help tab content
      tabItem(tabName = "help",
120 121 122 123 124 125 126 127 128
              h2("I am here to Help."),
              "This tool was created to help visualize and analyse data which is recorded with the CoConUT and CoCoQuest Applications.",
              h3("Uploading Data"),
              "Please make sure the files you want to upload are *.json files  Otherwise the upload won't work.", br(),
              "For uploading you have to click on the 'Browse'-Button and an explorer-window will open.", br(),
              "Please navigate to the wanted file, select it and click on 'open'. 
              Then the name of the selected file and a loadingbar will apear. 'Upload complete' will show you that the upload worked and is finished.", br(),
              "Please make sure, that you upload the right data into the right field.", br(),
              "First field: CoConUT and second field: CoCoQuest. Otherwise the visualization won't work.",
129 130
              h3("Data"),
              "After correctly loading up the right json files, in this vies will apear a table that shows the data that were red from the jsons.", br(),
131
              h3("Controlls"),
132 133
              "On this page you are able to select the visualizations you want to use and which data should be in them.", br(),
              "To show a visualization on the dashboard you have to enable the right checkbox. After that you need to select the x- and y-axis for this visualisation and then it will be added to the dashboard. ",
134 135
              h3("Dashboard"),
              "", br()
Stephanie's avatar
Stephanie committed
136 137
      )
    
138
    
Stephanie's avatar
Stephanie committed
139
    ))
140
)