display header as flex component (fix bs4 alignment)

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: esquisse
 Type: Package
 Title: Explore and Visualize Your Data Interactively
-Version: 2.0.0.9000
+Version: 2.0.0.9010
 Authors@R: c(person("Fanny", "Meyer", role = c("aut")),
   person("Victor", "Perrier", email = "victor.perrier@dreamrs.fr", role = c("aut", "cre")),
   person("Ian", "Carroll", comment = "Faceting support", role = "ctb"),

R/esquisse-ui.R

@@ -62,24 +62,24 @@ esquisse_ui <- function(id,
   }
   header_btns <- make_btn_header(header_btns)
   tag_header <- tags$div(
-    class = "esquisse-title-container bg-primary",
-    tags$h1("Esquisse", class = "esquisse-title"),
+    class = "esquisse-title-container bg-primary d-flex justify-content-between",
     tags$div(
-      class = "pull-right float-end",
-      header_btns$settings(ns("settings")),
-      header_btns$.after,
-      header_btns$close(ns("close")),
-    ),
-    tags$div(
-      class = "pull-left",
+      class = "esquisse-header-btns-left",
       header_btns$.before,
       header_btns$import_data(ns("launch_import_data")),
       header_btns$show_data(ns("show_data")),
       header_btns$update_variable(ns("update_variable")),
       header_btns$create_column(ns("create_col")),
       header_btns$cut_variable(ns("cut_var")),
       header_btns$update_factor(ns("up_fct"))
-    )
+    ),
+    tags$h1("Esquisse", class = "esquisse-title"),
+    tags$div(
+      class = "esquisse-header-btns-right",
+      header_btns$settings(ns("settings")),
+      header_btns$.after,
+      header_btns$close(ns("close")),
+    ),
   )
 
   ui <- tags$div(