Add UI elements for table edition

R/app_ui.R

@@ -29,7 +29,7 @@ app_ui <- function() {
         fluidPage(
           useShinyjs(),
           fluidRow(
-            box(title = "Affiliation selection",
+            box(title = "Affiliation selection: select among conflicting affiliiations",
                 width = NULL,
                 status = "primary",
                 solidHeader = T,
@@ -48,6 +48,16 @@ app_ui <- function() {
                 downloadButton("download", "Download")
             )
           )
+        ), 
+        fluidPage(
+          fluidRow(
+           box(title = "Affiliation edition: correct current affiliations",
+               width = NULL, 
+               status = "primary", 
+               solidHeader = TRUE, 
+               DT::DTOutput("tableFull")
+               ) 
+          )
         )
       )
     )