Commit dd272522 authored by mahendra-mariadassou's avatar mahendra-mariadassou
Browse files

Add UI elements for table edition

parent b2087570
......@@ -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")
)
)
)
)
)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment