|
|
|
|
|
|
|
|
ui <- fixedPage( |
|
|
ui <- fixedPage( |
|
|
includeCSS("devices.min.css"), |
|
|
includeCSS("devices.min.css"), |
|
|
includeCSS("t4c.css"), |
|
|
includeCSS("t4c.css"), |
|
|
|
|
|
includeCSS("moffitt-colors.css"), |
|
|
includeCSS("animate.css"), |
|
|
includeCSS("animate.css"), |
|
|
shinyjs::useShinyjs(), |
|
|
shinyjs::useShinyjs(), |
|
|
tags$link(rel = "stylesheet", type = "text/css", href = "https://fonts.googleapis.com/css?family=IBM+Plex+Sans:100,100i,200,200i,300,300i,400,400i,500,500i,600,600i,700,700i"), |
|
|
tags$link(rel = "stylesheet", type = "text/css", href = "https://fonts.googleapis.com/css?family=IBM+Plex+Sans:100,100i,200,200i,300,300i,400,400i,500,500i,600,600i,700,700i"), |
|
|
|
|
|
|
|
|
div( |
|
|
div( |
|
|
id = "app-main", |
|
|
id = "app-main", |
|
|
class = "app-main animated", |
|
|
class = "app-main animated", |
|
|
h1(APP_TITLE, class = "app-title"), |
|
|
|
|
|
p(HELP_TEXT, class = "help-text"), |
|
|
|
|
|
|
|
|
h1(APP_TITLE, class = "app-title text-white bg-moffitt-blue"), |
|
|
|
|
|
p(HELP_TEXT, class = "help-text text-moffitt-grey"), |
|
|
shinyswiprUI( |
|
|
shinyswiprUI( |
|
|
"card_swipe_ui", |
|
|
"card_swipe_ui", |
|
|
div(class = "swiperCard-header", |
|
|
div(class = "swiperCard-header", |
|
|
h4(class = "card-title", |
|
|
|
|
|
|
|
|
h4(class = "card-title text-white bg-moffitt-light-blue", |
|
|
textOutput("question_category") |
|
|
textOutput("question_category") |
|
|
) |
|
|
) |
|
|
), |
|
|
), |
|
|
|
|
|
|
|
|
) |
|
|
) |
|
|
), |
|
|
), |
|
|
div( |
|
|
div( |
|
|
class = "bottom-help", |
|
|
|
|
|
|
|
|
class = "bottom-help text-moffitt-grey", |
|
|
div(class = "bottom-help-left", img(src = "/images/swipe-left.svg", width = "50px"), p("Bad")), |
|
|
div(class = "bottom-help-left", img(src = "/images/swipe-left.svg", width = "50px"), p("Bad")), |
|
|
div(class = "bottom-help-right", img(src = "/images/swipe-right.svg", width = "50px"), p("Okay")), |
|
|
div(class = "bottom-help-right", img(src = "/images/swipe-right.svg", width = "50px"), p("Okay")), |
|
|
div(class = "bottom-help-middle", span("Swipe Card", class = "bottom-help-middle-text")) |
|
|
div(class = "bottom-help-middle", span("Swipe Card", class = "bottom-help-middle-text")) |