From 6fee6b43f0cf921a0b05e70b4f05f07756185dff Mon Sep 17 00:00:00 2001
From: Kate Isaac <41767733+kweav@users.noreply.github.com>
Date: Mon, 30 Sep 2024 15:47:51 -0400
Subject: [PATCH] pull new file and replace old name

---
 R/slido.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/slido.R b/R/slido.R
index 3b3bb8a..95df3b2 100644
--- a/R/slido.R
+++ b/R/slido.R
@@ -49,6 +49,7 @@ get_slido_files <- function(drive_id, token = NULL, recursive = TRUE, keep_dupli
     "^Polls-overall-",
     "^Replies-",
     "^Polls-per-user-",
+    "^Polls-per-participant-",
     "^Questions-"
   )
 
@@ -63,6 +64,7 @@ get_slido_files <- function(drive_id, token = NULL, recursive = TRUE, keep_dupli
   event_names_regex <- paste0(slido_event_name, collapse = "|")
   slido_type <- stringr::word(slido_file_names, sep = event_names_regex, start = 1)
   slido_type <- gsub("-$", "", slido_type)
+  slido_type <- gsub("Polls-per-user", "Polls-per-participant", slido_type)
 
   # Set up data frame
   slido_files <- file_info %>%