mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-09-12 18:09:39 +02:00
24 lines
546 B
R
24 lines
546 B
R
|
library(REDCapCAST)
|
||
|
|
library(REDCapR)
|
||
|
|
library(shiny)
|
||
|
|
|
||
|
|
ui <- shiny::fluidPage(
|
||
|
|
# shiny::helpText("Submit URL and API token to browse download options"),
|
||
|
|
shiny::textInput(
|
||
|
|
inputId = "uri",
|
||
|
|
label = "URI",
|
||
|
|
value = "https://redcap.your.institution/api/"
|
||
|
|
),
|
||
|
|
shiny::textInput(
|
||
|
|
inputId = "api",
|
||
|
|
label = "API token",
|
||
|
|
value = ""
|
||
|
|
),
|
||
|
|
shiny::tableOutput("table"),
|
||
|
|
shiny::uiOutput("fields"),
|
||
|
|
shiny::uiOutput("instruments"),
|
||
|
|
shiny::uiOutput("arms"),
|
||
|
|
shiny::actionButton("submit", "Submit"),
|
||
|
|
DT::DTOutput("export")
|
||
|
|
)
|