UI change

app.R

@@ -30,6 +30,7 @@ ui <- fluidPage(
   sidebarLayout(
     sidebarPanel(
       a(href = "https://livenne.chu-nancy.fr/shiny_files/actes/actes_collact.wid", "Requête collact"),
+      br(),
       a(href = "https://livenne.chu-nancy.fr/shiny_files/actes/actes_pims.wid", "Requête webPIMS"),
       hr(),
       fileInput("collact", "Fichier collact", accept = "text/csv"),