Commit c4214565 authored by Stephanie Wegscheidl's avatar Stephanie Wegscheidl
Browse files

typo fixed and next button on every page

parent bfebfa33

dashboard/server.R

+19 −1
Original line number Diff line number Diff line
@@ -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

+12 −9
Original line number Diff line number Diff line
@@ -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