Rename button

main.R

@@ -955,7 +955,7 @@ generate_app <- function() {
   }
   if("RULEGRAPH" %in% names(APP)){
     res <- res + "tabRULEGRAPH = fluidPage(box(title = 'Rule Graph :', width = 12, status = 'primary', collapsible = TRUE, solidHeader = TRUE, uiOutput('RULEGRAPH_svg'),actionButton('refresh_rg', 'Refresh',  icon('sync'), class='btn btn-info')),"
-    res <- res + "box(title = 'What will be done :', width = 12, status = 'primary', collapsible = TRUE, solidHeader = TRUE, uiOutput('dry_run_div', style = 'overflow-y: scroll; height: 600px'),actionButton('dry_run_button', 'Dry run',  icon('play'), class='btn btn-info')))\n"
+    res <- res + "box(title = 'What will be done :', width = 12, status = 'primary', collapsible = TRUE, solidHeader = TRUE, uiOutput('dry_run_div', style = 'overflow-y: scroll; height: 600px'),actionButton('dry_run_button', 'Refresh',  icon('sync'), class='btn btn-info')))\n"
   }
   if("Report" %in% names(APP)){
     res <- res + "tabReport = fluidPage(box(title = 'Report :', width = 12, status = 'primary', collapsible = TRUE, solidHeader = TRUE, uiOutput('report_html')))\n"