add: course_id columns in folders output

vusaverse · May 1, 2024 · e039092 · e039092
1 parent 033aefa
commit e039092
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/get_course_folders.R b/R/get_course_folders.R
@@ -23,7 +23,9 @@ get_course_folders <- function(canvas, course_id, per_page = 100) {
 
   # Parse the response as JSON
   folders <- httr::content(response, "text", encoding = "UTF-8") %>%
-    jsonlite::fromJSON(flatten = TRUE)
+    jsonlite::fromJSON(flatten = TRUE) %>%
+    as.data.frame() %>%
+    mutate(course_id = course_id)
 
   # Return the data frame of folders
   return(folders)