Clean up unused code

t4c/app.R

@@ -19,22 +19,6 @@ possessive_name <- function(x) if (substr(x, nchar(x), nchar(x)) == "s") paste0(
 questions <- readxl::read_xlsx(here::here("docs/questions.xlsx")) %>%
   arrange(order)
 
-question_itergen <- function(questions) {
-  force(questions)
-  i <- 0L
-  ids <- arrange(questions, order) %>% pull(id)
-  function() {
-    i <<- i + 1
-    if (i > length(ids)) return(NULL)
-    list(
-      id = ids[[i]],
-      question = filter(questions, id == ids[[i]])
-    )
-  }
-}
-
-next_question <- question_itergen(questions)
-
 plot_swipe_results <- function(questions, results, SWIPES_MEAN) {
   n_category <- questions %>% group_by(Category) %>% count()