|
|
@@ -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"), |
|
|
|