diff --git a/inst/ShinyApps/labestDataView/server.R b/inst/ShinyApps/labestDataView/server.R
index e39703dc04a5c0dfa441f67d985d6a7775764ce9..2fd1f0db474eb743bf3e16d2502d406d195941d6 100644
--- a/inst/ShinyApps/labestDataView/server.R
+++ b/inst/ShinyApps/labestDataView/server.R
@@ -69,5 +69,11 @@ shinyServer(
                 )
             }
         })
+
+        observe({
+            if(input$EXIT > 0) {
+                stopApp()
+            }
+        })
     }
 )
diff --git a/inst/ShinyApps/labestDataView/ui.R b/inst/ShinyApps/labestDataView/ui.R
index eb3d3d58b1b2ff347b138e1096d12405048453d7..5bb3b3bbb2a44270edf6807df42d3d271b336362 100644
--- a/inst/ShinyApps/labestDataView/ui.R
+++ b/inst/ShinyApps/labestDataView/ui.R
@@ -9,7 +9,7 @@ shinyUI(
 
         fluidRow(
             column(
-                width = 4, offset = 2,
+                width = 4, ## offset = 2,
                 selectInput(inputId = "DATASET",
                             label = "Dados disponíveis",
                             choices = c("Escolha um dataset" = "", L))
@@ -20,6 +20,15 @@ shinyUI(
                            'os dados:</label><br>', sep = "")),
                 downloadButton(outputId = "DOWNLOADDATA",
                                label = "Download tsv")
+            ),
+            column(
+                width = 2, offset = 2,
+                HTML(paste('<label class="control-label">Execução R:',
+                           '</label><br>', sep = "")),
+                actionButton(inputId = "EXIT",
+                             label = "Stop",
+                             class = "btn btn-danger")
+
             )
         ),
 
@@ -28,6 +37,3 @@ shinyUI(
         )
     )
 )
-
-
-