Commit 8916e138 authored by Stephanie Wegscheidl's avatar Stephanie Wegscheidl

structure code, tries to make multiple charts work and updating help page

parent 0145b675
This diff is collapsed.
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
library(shiny) library(shiny)
library(shinydashboard) library(shinydashboard)
#library(jsonlite) #library(jsonlite)
library(anytime) library(anytime) # convert unixtimestamps to readable date and time
#library(leaflet) #library(leaflet)
ui <- dashboardPage( ui <- dashboardPage(
...@@ -75,8 +75,9 @@ ui <- dashboardPage( ...@@ -75,8 +75,9 @@ ui <- dashboardPage(
tabsetPanel( tabsetPanel(
tabPanel("Barchart", tabPanel("Barchart",
#Barchart #Barchart
uiOutput("input_hist_x"), textOutput("bar_explain"),
uiOutput("input_hist_y"), #uiOutput("input_hist_x"),
# uiOutput("input_hist_y"),
actionButton("check_hist", "add Barchart") actionButton("check_hist", "add Barchart")
), ),
...@@ -91,6 +92,7 @@ ui <- dashboardPage( ...@@ -91,6 +92,7 @@ ui <- dashboardPage(
#Linechart #Linechart
tabPanel("Linechart", tabPanel("Linechart",
textOutput("line_explain"),
uiOutput("input_line_x"), uiOutput("input_line_x"),
uiOutput("input_line_y"), uiOutput("input_line_y"),
actionButton("check_line", "add Linechart") actionButton("check_line", "add Linechart")
...@@ -100,6 +102,7 @@ ui <- dashboardPage( ...@@ -100,6 +102,7 @@ ui <- dashboardPage(
tabPanel("Scatterplot", tabPanel("Scatterplot",
# selectInput("scat_x", "x-axis", choices=colnames(coconut.df)), # selectInput("scat_x", "x-axis", choices=colnames(coconut.df)),
# selectInput("scat_y", "y-axis", choices=colnames(coconut.df)), # selectInput("scat_y", "y-axis", choices=colnames(coconut.df)),
textOutput("scat_explain"),
uiOutput("input_scat_x"), uiOutput("input_scat_x"),
uiOutput("input_scat_y"), uiOutput("input_scat_y"),
actionButton("check_scat", " add Scatterplot") actionButton("check_scat", " add Scatterplot")
...@@ -108,6 +111,7 @@ ui <- dashboardPage( ...@@ -108,6 +111,7 @@ ui <- dashboardPage(
#Boxplot #Boxplot
tabPanel("Boxplot", tabPanel("Boxplot",
# selectInput("box_x", "x-axis", choices=colnames(coconut.df)), # selectInput("box_x", "x-axis", choices=colnames(coconut.df)),
textOutput("box_explain"),
uiOutput("input_box_x"), uiOutput("input_box_x"),
#uiOutput("input_box_y"), #uiOutput("input_box_y"),
actionButton("check_box", "add Boxplot") actionButton("check_box", "add Boxplot")
...@@ -118,6 +122,7 @@ ui <- dashboardPage( ...@@ -118,6 +122,7 @@ ui <- dashboardPage(
#MAP #MAP
tabPanel("Map", tabPanel("Map",
# selectInput("map_data", "data", choices=colnames(coconut.df)), # selectInput("map_data", "data", choices=colnames(coconut.df)),
textOutput("map_explain"),
uiOutput("input_map"), uiOutput("input_map"),
actionButton("check_map", "add Map") actionButton("check_map", "add Map")
) )
...@@ -177,21 +182,26 @@ ui <- dashboardPage( ...@@ -177,21 +182,26 @@ ui <- dashboardPage(
# Help tab content # Help tab content
tabItem(tabName = "help", tabItem(tabName = "help",
h2("I am here to Help."), 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("General Information"),
"This tool was created to help visualize and analyse data which is recorded with the CoConUT and CoCoQuest Applications. Please follow the next buttons, or the menu on the left side step by step. This will help you to work with this tool correctly.",
h3("Uploading Data"), h3("Uploading Data"),
"Please make sure the files you want to upload are *.json files Otherwise the upload won't work.", br(), "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(), "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'. "Please navigate to the wanted file, select it and click on 'open' or double click on it.
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(), 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. If not please upload the correct file in the right fields. ", br(), "Please make sure, that you upload the right data into the right field. If not please upload the correct file in the right fields. ", br(),
"First field: CoConUT and second field: CoCoQuest. Otherwise the visualization won't work.", "First field: CoConUT and second field: CoCoQuest. Otherwise the visualization won't work.",
h3("Data"), 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. Also the names of the loaded files will apear, here you can check again, if the uploaded files where the right ones.", br(), "Do not skip this step. Otherwise the application will not load the needed data correctly. If you skiped this step, you might have to start the application new and do the upload again.",br(),
h3("Controlls"), "After correctly loading up the right json files, there will apear a table that shows the data that were red from the uploaded jsons. The first table contains the CoConUT.json data and the second table contains the CoCoQuest.json data.",br(),
"On this page you are able to select the visualizations you want to use and which data should be in them.", br(), "Also you can enter the title of your dashboard.", "Also the names of the loaded files will apear, here you can check again, if the uploaded files where the right ones. Please note, that there is a 'go to views'-button in the lower left corner, which will lead you to the next step.", 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. ", h3("Views"),
h3("Dashboard"), "Here you can see which visualizations are possible within the Application. This tool is supposed to be supplemented by the user with functions they need.
"Here you can now find your selected visualizations. Also there is a download button which will create a screenshot which you can save on your device.", br() On this page you are able to select the visualizations you want to use and which data should be in them.", br(), "Also you can enter the title of your dashboard.",
"You can also add the vizualisations to the dashboard, which is shown on the right side of this view.
First you need click on the tab of the view you want to add to the dashboard, then select the data you want the visualization to contain (x- and y-axis or data). ",br(),
"Then you will need to click on the button 'add *view*', right then the selected view should appear in the dashboard."
) )
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment