Move app to project root directory

t4c/app.R → app.R

@@ -13,7 +13,7 @@ SWIPES_MEAN <- c(
   "right" = 1L
 )
 
-top_male_names <- readRDS(here::here("t4c/data/top_male_names.rds"))
+top_male_names <- readRDS(here::here("data/top_male_names.rds"))
 random_name <- function() sample(top_male_names, 1)
 possessive_name <- function(x) if (substr(x, nchar(x), nchar(x)) == "s") paste0(x, "'") else paste0(x, "'s")
 
@@ -72,13 +72,13 @@ swipe_help_row_div <- div(
   div(class = "bottom-help-middle", span("Swipe Card", class = "bottom-help-middle-text"))
 )
 
-source(here::here("t4c/screens.R"), local = TRUE)
+source("screens.R", local = TRUE)
 
 ui <- fixedPage(
-  includeCSS("devices.min.css"),
-  includeCSS("t4c.css"),
-  includeCSS("moffitt-colors.css"),
-  includeCSS("animate.css"),
+  includeCSS("www/css/devices.min.css"),
+  includeCSS("www/css/t4c.css"),
+  includeCSS("www/css/moffitt-colors.css"),
+  includeCSS("www/css/animate.css"),
   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=Amatic+SC:400,700|Coming+Soon"),
@@ -222,7 +222,7 @@ server <- function(input, output, session) {
     if (!is.null(app_data$screen_prev)) app_data$screen_next <- app_data$screen_prev
   })
   observeEvent(input$jump_results, {
-    last_results_file <- here::here("t4c", "results.rds")
+    last_results_file <- "results.rds"
     if (!file.exists(last_results_file)) {
       cat("No results saved yet.")
       return()