mirror of
https://github.com/agdamsbo/REDCapCAST.git
synced 2024-11-22 21:40:23 +01:00
90 lines
3.1 KiB
R
90 lines
3.1 KiB
R
|
ui <- shiny::fluidPage(
|
||
|
|
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
## Application title
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
shiny::titlePanel("Simple REDCap data base creation and data upload from data set file via API",
|
||
|
|
windowTitle = "REDCap databse creator"
|
||
|
|
),
|
||
|
|
shiny::h5("Please note, that this tool serves as a demonstration of some of the functionality
|
||
|
|
of the REDCapCAST package. No responsibility for data loss or any other
|
||
|
|
problems will be taken."),
|
||
|
|
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
## Side panel
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
|
||
|
|
shiny::sidebarPanel(
|
||
|
|
shiny::h4("REDCap database and dataset"),
|
||
|
|
shiny::fileInput("ds", "Choose data file",
|
||
|
|
multiple = FALSE,
|
||
|
|
accept = c(
|
||
|
|
".csv",
|
||
|
|
".xls",
|
||
|
|
".xlsx",
|
||
|
|
".dta"
|
||
|
|
)
|
||
|
|
),
|
||
|
|
shiny::h6("Below you can download the dataset formatted for upload and the
|
||
|
|
corresponding data dictionary for a new data base."),
|
||
|
|
# Button
|
||
|
|
shiny::downloadButton("downloadData", "Download data"),
|
||
|
|
|
||
|
|
# Button
|
||
|
|
shiny::downloadButton("downloadMeta", "Download dictionary"),
|
||
|
|
|
||
|
|
|
||
|
|
# Horizontal line ----
|
||
|
|
shiny::tags$hr(),
|
||
|
|
shiny::h4("REDCap upload"),
|
||
|
|
shiny::textInput(
|
||
|
|
inputId = "uri",
|
||
|
|
label = "URI",
|
||
|
|
value = "https://redcap.au.dk/api/"
|
||
|
|
),
|
||
|
|
shiny::textInput(
|
||
|
|
inputId = "api",
|
||
|
|
label = "API key",
|
||
|
|
value = "21CF2C17EA1CA4F3688DF991C8FE3EBF"
|
||
|
|
),
|
||
|
|
shiny::actionButton(
|
||
|
|
inputId = "upload.meta",
|
||
|
|
label = "Upload dictionary", icon = shiny::icon("book-bookmark")
|
||
|
|
),
|
||
|
|
shiny::h6("Please note, that before uploading any real data, put your project
|
||
|
|
into production mode."),
|
||
|
|
shiny::actionButton(
|
||
|
|
inputId = "upload.data",
|
||
|
|
label = "Upload data", icon = shiny::icon("upload")
|
||
|
|
),
|
||
|
|
|
||
|
|
# Horizontal line ----
|
||
|
|
shiny::tags$hr()
|
||
|
|
),
|
||
|
|
shiny::mainPanel(
|
||
|
|
shiny::tabsetPanel(
|
||
|
|
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
## Summary tab
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
shiny::tabPanel(
|
||
|
|
"Summary",
|
||
|
|
shiny::h3("Data overview (first 20)"),
|
||
|
|
shiny::htmlOutput("data.tbl", container = shiny::span),
|
||
|
|
shiny::h3("Dictionary overview"),
|
||
|
|
shiny::htmlOutput("meta.tbl", container = shiny::span)
|
||
|
|
),
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
## Upload tab
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
shiny::tabPanel(
|
||
|
|
"Upload",
|
||
|
|
shiny::h3("Meta upload overview"),
|
||
|
|
shiny::htmlOutput("upload.meta.print", container = shiny::span),
|
||
|
|
shiny::h3("Data upload overview"),
|
||
|
|
shiny::htmlOutput("upload.data.print", container = shiny::span)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|