Add check_png_urls()

jhudsl · Jul 10, 2023 · 22b7f13 · 22b7f13
1 parent 2131ede
commit 22b7f13
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/R/download_gs_file.R b/R/download_gs_file.R
@@ -98,6 +98,16 @@ make_slide_url <- function(x) {
   x
 }
 
+# Check if vector of URLs is valid (Status Code = 200)
+check_png_urls <- function(urls) {
+  res = vapply(urls, function(url) {
+    tfile = tempfile(fileext = ".png")
+    ret = httr::GET(url)
+    httr::status_code(ret) == 200
+  }, FUN.VALUE = logical(1))
+  return(res)
+}
+
 # Extract page IDs of slides in a Google Slides presentation
 #' @importFrom jsonlite fromJSON
 #' @import httr