clean dev host

R/mod_tabItemDevelopment.R

@@ -104,58 +104,6 @@ mod_tabItemDevelopment_ui <- function(id){
                         plotOutput(ns("mapINDIVIDUAL"))
                 )
             )
-          ),
-          # fluidRow( # width of fluidrow is 12
-            # box(title = iconed("Temperature", "chart-bar"),
-            #     solidHeader = TRUE,
-            #     width = 12, status = "warning",
-            #    
-            #     column(width = 2,
-            #            # plot the Figure
-            #            selectizeInput(ns("ctrlDateTemperature"),
-            #                           label = "Choose Column Date",
-            #                           choices = NULL,
-            #                           options = list(
-            #                             placeholder = 'Please select column below',
-            #                             onInitialize = I('function() { this.setValue(""); }')
-            #                           )
-            #            ),
-            #            selectizeInput(ns("ctrlAsDateTemperature"),
-            #                           label = "as.Date or Not",
-            #                           choices = NULL,
-            #                           options = list(
-            #                             placeholder = "Choose select 'as.Date' or 'Not'",
-            #                             onInitialize = I('function() { this.setValue(""); }')
-            #                           )
-            #            ),
-            #            selectizeInput(ns("ctrlTempTemperature"),
-            #                           label = "Choose Column Temperature",
-            #                           choices = NULL,
-            #                           options = list(
-            #                             placeholder = 'Please select column below',
-            #                             onInitialize = I('function() { this.setValue(""); }')
-            #                           )
-            #            ),
-            #            actionButton(ns("goTimeTEMPERATURE"), "Validate")
-            #     ),
-            #     column(width = 3,
-            #            tableOutput(ns("tableTimeTEMPERATURE"))
-            #     ),
-            #     column(width = 3,
-            #            plotOutput(ns("plotTimeTEMPERATURE"))
-            #     )
-            # )
-          # ),
-          fluidRow(
-            box(title = "Next",
-                width = 12, status = "primary",
-                solidHeader = TRUE,
-                p("If it's ok, click next"),
-                actionButton('switchExposureTab',
-                             "Next",
-                             icon = icon("forward"),
-                             style="color: #fff; background-color: #3c8dbc; border-color: #3c8dbc")
-            )
           )
   )
 }

R/mod_tabItemHost.R

@@ -105,17 +105,6 @@ mod_tabItemHost_ui <- function(id){
                        plotOutput(ns("mapSITE"))
                 )
             )
-          ),
-          fluidRow(
-            box(title = "Next",
-                width = 12, status = "primary",
-                solidHeader = TRUE,
-                p("If the map on your left seems correct, you can consider to safely click to go to the next step... " ),
-                actionButton('switchDevelopmentTab',
-                             "Next",
-                             icon = icon("forward"),
-                             style="color: #fff; background-color: #3c8dbc; border-color: #3c8dbc")
-            )
           )
   )
 }