Use readr::read_lines for the key.

materials/sections/survey-workflow.qmd

@@ -59,6 +59,7 @@ library(qualtRics)
 library(tidyr)
 library(knitr)
 library(ggplot2)
+library(readr)
 library(kableExtra)
 library(dplyr)
 ```