Decode MIME strings in downloaded file names

Author: alice-hannah

NEWS.md

@@ -1,5 +1,7 @@
 # objr (development version)
 
+* Fix bug when downloaded files have MIME encoded-word syntax (#72).
+
 # objr 0.2.0
 
 ## New features

R/utils_download-upload.R

@@ -236,6 +236,7 @@ file_name_from_header <- function(response,
       cont_disp,
       m = regexpr("(?<=filename=\\\").*(?=\\\")", cont_disp, perl = TRUE)
     ) %>%
+    decode_mime() %>%
     utils::URLdecode()
 
   if (length(file_name) == 0) {
@@ -251,3 +252,7 @@ file_name_from_header <- function(response,
   file_name
 
 }
+
+decode_mime <- function(string) {
+  gsub("(^=\\?UTF-8\\?Q\\?)|(\\?=$)", replacement = "", string)
+}