Tweak styles and small things

t4c/app.R

@@ -3,6 +3,7 @@ library(htmlwidgets)
 library(shiny)
 library(dplyr)
 library(shinyjs)
+library(ggplot2)
 
 # ---- APP PARAMETERS ----
 APP_TITLE <- "App Title"
@@ -37,7 +38,7 @@ plot_swipe_results <- function(questions, results, SWIPES_MEAN) {
     coord_flip() +
     guides(color = FALSE) +
     labs(x=NULL, y=NULL) +
-    hrbrthemes::theme_ipsum_ps(base_size = 24, axis_title_just = "cc") +
+    hrbrthemes::theme_ipsum_ps(base_size = 26, axis_title_just = "cc") +
     facet_wrap(~ Category, ncol = 1, scales = "free_y") +
     theme(
       panel.grid.minor.x = element_blank(),

t4c/screens.R

@@ -4,7 +4,7 @@ screens[["splash-overlay"]] <- div(
   div(
     class = "splash-body",
     h1("Welcome!"),
-    p("Talking about cancer treatment options is hard, but we're here to help."),
+    p("Talking about your cancer treatment options is hard, but we're here to help."),
     actionButton("splash_next_screen", "Get Started", class = "btn-bottom-right btn-primary")
   )
 )

t4c/t4c.css

@@ -133,8 +133,8 @@ a:hover {
   font-weight: 600;
 }
 .splash-body p {
-  padding-left: 40px;
-  padding-right: 40px;
+  padding-left: 55px;
+  padding-right: 55px;
   padding-top: 10px;
 }
 .btn-bottom-right {