Commit b7ae416d authored by Stephanie Wegscheidl's avatar Stephanie Wegscheidl

changes according to interviews

parent d5d6c8fa
......@@ -213,7 +213,6 @@ server <- function(input, output, session) {
V2=as.numeric(coconut.df[[input[[yplotname]]]])),
.Names=c("V1","V2"), row.names=c(NA,10L), class = "data.frame")
# New Bar-Plot
print(as.numeric(data$V1))
array_plots <<-arrangeGrob(array_plots, barplot(data$V2,data$V1,
ylab=input[[yplotname]],
xlab=input[[xplotname]],
......@@ -229,8 +228,13 @@ server <- function(input, output, session) {
})
#BARCHART text
output$bar_info <- renderText({
paste("Please be aware, that once you created another chart you won't be able to change the data of your previous charts. The newer chart will crash. ")
})
output$bar_explain <- renderText({
"Here you can add a barchart. A bar chart uses bars to show comparisons between categories of data. If you was trying to compare the height of something then intuitvely you would represent this by using columns. After clicking on the add button, a box with dropdownfields and a barchart will apear. Please set your wanted data for the x-and y-axis. Also be aware, that once you created another chart you won't be able to change the data of your previous charts."
paste("Here you can add a barchart. A bar chart uses bars to show comparisons between categories of data. If you was trying to compare the height of something then intuitvely you would represent this by using columns. After clicking on the add button, a box with dropdownfields and a barchart will apear. Please set your wanted data for the x-and y-axis. Also be aware, that once you created another chart you won't be able to change the data of your previous charts.")
})
observeEvent(input$check_time, {
......@@ -330,8 +334,11 @@ server <- function(input, output, session) {
})
#LINECHART text
output$line_info <- renderText({
paste("Please be aware, that once you created another chart you won't be able to change the data of your previous charts. The newer chart will crash. ")
})
output$line_explain <- renderText({
"Here you can add a linechart. After clicking on the add button, a box with dropdownfields and a linechart will apear. Please set your wanted data for the x-and y-axis. Also be aware, that once you created another chart you won't be able to change the data of your previous charts."
"Here you can add a linechart. After clicking on the add button, a box with dropdownfields and a linechart will apear. Please set your wanted data for the x-and y-axis."
})
......@@ -373,8 +380,11 @@ server <- function(input, output, session) {
#SCATTERPLOT text
output$scat_info <- renderText({
paste("Please be aware, that once you created another chart you won't be able to change the data of your previous charts. The newer chart will crash. ")
})
output$scat_explain <- renderText({
"Here you can add a scatterplot. After clicking on the add button, a box with dropdownfields and a scatterolot will apear. Please set your wanted data for the x-and y-axis. Also be aware, that once you created another chart you won't be able to change the data of your previous charts."
"Here you can add a scatterplot. After clicking on the add button, a box with dropdownfields and a scatterolot will apear. Please set your wanted data for the x-and y-axis."
})
......@@ -416,8 +426,11 @@ server <- function(input, output, session) {
#BOXPLOT text
output$box_info <- renderText({
paste("Please be aware, that once you created another chart you won't be able to change the data of your previous charts. The newer chart will crash. ")
})
output$box_explain <- renderText({
"Here you can add a boxplot. After clicking on the add button, a box with a dropdownfield and a boxplot will apear. Please set your wanted data for the data. Also be aware, that once you created another chart you won't be able to change the data of your previous charts."
"Here you can add a boxplot. After clicking on the add button, a box with a dropdownfield and a boxplot will apear. Please set your wanted data for the data."
})
......@@ -483,8 +496,12 @@ server <- function(input, output, session) {
})
#MAP text
output$map_info <- renderText({
paste("Please be aware, that once you created another chart you won't be able to change the data of your previous charts. The newer chart will crash. ")
})
output$map_explain <- renderText({
"Here you can add a map. After clicking on the add button, a box with dropdownfield and a map will apear. Please set your wanted data. The map will show the way the participant went, also the data you selected is going to be normalized (highest value=10).Also be aware, that once you created another chart you won't be able to change the data of your previous charts."
"Here you can add a map. After clicking on the add button, a box with dropdownfield and a map will apear. Please set your wanted data. The map will show the way the participant went, also the data you selected is going to be normalized (highest value=10)."
})
......
......@@ -54,7 +54,9 @@ ui <- dashboardPage(
h2("Look into the CoCoQuest Data:"),
h3(textOutput("lastLoadedQuest")),
dataTableOutput("quest"),
div(style = "position:absolute;right:1em;",
actionButton("viewSite", "go to Dashboard")
)
),
......@@ -66,10 +68,12 @@ ui <- dashboardPage(
sidebarLayout(
sidebarPanel(
h2("Set the Views here:"),
textInput("title", "Title", " "),
textInput("title", "Name the Dashboard", " "),
span(textOutput("bar_info"), style="color:red"),
tabsetPanel(
tabPanel("Barchart",
#Barchart
#span(textOutput("bar_info"), style="color:red"),
textOutput("bar_explain"),
#uiOutput("input_hist_x"),
#uiOutput("input_hist_y"),
......@@ -78,7 +82,7 @@ ui <- dashboardPage(
#TIMELINE
tabPanel("Timeline",
#span(textOutput("time_info"), style="color:red"),
textOutput("texttimeline"),
#uiOutput("input_time_data"),
actionButton("check_time", "add Timeline")
......@@ -87,6 +91,7 @@ ui <- dashboardPage(
#Linechart
tabPanel("Linechart",
#span(textOutput("line_info"), style="color:red"),
textOutput("line_explain"),
# uiOutput("input_line_x"),
# uiOutput("input_line_y"),
......@@ -97,6 +102,7 @@ ui <- dashboardPage(
tabPanel("Scatterplot",
# selectInput("scat_x", "x-axis", choices=colnames(coconut.df)),
# selectInput("scat_y", "y-axis", choices=colnames(coconut.df)),
#span(textOutput("scat_info"), style="color:red"),
textOutput("scat_explain"),
# uiOutput("input_scat_x"),
# uiOutput("input_scat_y"),
......@@ -106,6 +112,7 @@ ui <- dashboardPage(
#Boxplot
tabPanel("Boxplot",
# selectInput("box_x", "x-axis", choices=colnames(coconut.df)),
#span(textOutput("box_info"), style="color:red"),
textOutput("box_explain"),
#uiOutput("input_box_x"),
#uiOutput("input_box_y"),
......@@ -117,6 +124,7 @@ ui <- dashboardPage(
#MAP
tabPanel("Map",
# selectInput("map_data", "data", choices=colnames(coconut.df)),
#span(textOutput("map_info"), style="color:red"),
textOutput("map_explain"),
#uiOutput("input_map"),
actionButton("check_map", "add Map")
......
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