Resolve "transformation ui"

Closes #24 (closed)

ui.R

-ui <- shinygouv::navbarPage_dsfr(
+ui <- shinygouv::navbarPage_dsfr( # header & footer ------
   title = "Dataviz GitlabR",
   id = "nav",
   header = shinygouv::header_dsfr(
@@ -30,61 +30,8 @@ ui <- shinygouv::navbarPage_dsfr(
       )
     )
   ),
-  # First tab Projet
-  shinygouv::navbarPanel_dsfr(
-    title = "Choix du projet à sélectionner",
-    shinygouv::fluidRow_dsfr(
-      shinygouv::column_dsfr(12, selectInput("ID1",
-        label = h3("Nom du projet séléctionner"),
-        choices = choice
-      ),
-      extra_class = "fr-my-6w"
-      )
-    ),
-    shinygouv::fluidRow_dsfr(plotlyOutput(outputId = "issue_graph")),
-    shinygouv::fluidRow_dsfr(
-      shinygouv::column_dsfr(12,
-        DT::DTOutput(outputId = "tablef"),
-        extra_class = "fr-my-1w"
-      )
-    )
-  ),
-
-
-
-  # Second tab Issue
-  shinygouv::navbarPanel_dsfr(
-    title = "Les issues du projet sélectionné",
-    shinygouv::fluidRow_dsfr(
-      shinygouv::column_dsfr(9,
-        shiny::textOutput("issue_nbr"),
-        # Adding space to the column
-        # https://www.systeme-de-design.gouv.fr/elements-d-interface/fondamentaux-techniques/espacement
-        extra_class = "fr-my-6w"
-      ),
-      shinygouv::column_dsfr(3, shinygouv::dateRangeInput_dsfr(
-        inputId = "daterange1",
-        label = "Date range:",
-        start = "2016-01-01",
-        separator = "à"
-      ),
-      extra_class = "fr-my-6w"
-      ),
-      shinygouv::column_dsfr(12, DT::DTOutput(outputId = "issue"),
-        extra_class = "fr-my-1w"
-      )
-    )
-  ),
-  # third tab activity
-  shinygouv::navbarPanel_dsfr(
-    title = "Activité des issues",
-    shinygouv::fluidRow_dsfr(
-      shinygouv::column_dsfr(12, DT::DTOutput(outputId = "activity"),
-        extra_class = "fr-my-6w"
-      )
-    )
-  ),
-  # Fourth tab graph activity an time
+  # First tab Projet ---------
+  # Fourth tab graph activity an time--------
   shinygouv::navbarPanel_dsfr(
     title = "Graphique des projets par durée",
     shinygouv::fluidRow_dsfr(
@@ -103,4 +50,3 @@ ui <- shinygouv::navbarPage_dsfr(
     )
   )
 )
-#