typo fixed and next button on every page

dashboard/server.R

@@ -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  
   

dashboard/ui.R

@@ -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