Commit c4214565 authored by Stephanie Wegscheidl's avatar Stephanie Wegscheidl

typo fixed and next button on every page

parent bfebfa33
......@@ -9,6 +9,12 @@ library(knitr)
server <- function(input, output, session) {
set.seed(122)
#Continue to data page
observeEvent(input$dataSite, {
updateTabItems(session, "tabs",selected = "data")
})
#DATA PAGE
#last coconut_name
......@@ -164,6 +170,13 @@ server <- function(input, output, session) {
}
})
#Continue to control page
observeEvent(input$controlSide, {
updateTabItems(session, "tabs",selected = "controls")
})
#CONTROLLS PAGE
#Title Input
......@@ -229,7 +242,12 @@ server <- function(input, output, session) {
})
#Continue to dashboard page
observeEvent(input$dashboardSite, {
updateTabItems(session, "tabs",selected = "dashboard")
})
#DASHBOARD PAGE
......
......@@ -11,9 +11,10 @@ ui <- dashboardPage(
dashboardHeader(title="CoCoVisR"),
dashboardSidebar(
sidebarMenu(
id="tabs",
menuItem("Upload", tabName = "upload", icon =icon("upload")),
menuItem("Data", tabName = "data", icon =icon("list")),
menuItem("Contolls", tabName = "controlls", icon = icon("cog")),
menuItem("Contols", tabName = "controls", icon = icon("cog")),
menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
menuItem("Help", tabName = "help", icon = icon("book"))
)
......@@ -39,8 +40,9 @@ ui <- dashboardPage(
accept = c(
"text/json",
"text/comma-separated-values,text/plain",
".json"))
".json")),
actionButton("dataSite", "next
")
),
......@@ -58,14 +60,14 @@ ui <- dashboardPage(
textOutput("lastLoadedQuest"),
h4("Starttime: "),
textOutput("totalStarttime"),
dataTableOutput("quest")
dataTableOutput("quest"),
actionButton("controlSide", "next")
),
# Controlls tab content
tabItem(tabName = "controlls",
h2("Controlls here:"),
# Controls tab content
tabItem(tabName = "controls",
h2("Controls here:"),
textInput("title", "Title", " "),
#HISTOGRAM
checkboxInput("check_hist", "Histogram", FALSE),
......@@ -83,7 +85,8 @@ ui <- dashboardPage(
#LINEGRAPH
checkboxInput("check_line", "Linegraph", FALSE),
uiOutput("input_line_x"),
uiOutput("input_line_y")
uiOutput("input_line_y"),
actionButton("dashboardSite", "go to dashboard")
),
# Dashboard tab content
......
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