From 75347bfb4be690b65d86721007623bad0f4868cc Mon Sep 17 00:00:00 2001
From: Jeffrey Hanson <jeffrey.hanson@uqconnect.edu.au>
Date: Wed, 20 Jul 2022 10:59:47 +1200
Subject: [PATCH] fix #84

---
 R/ZenodoRequest.R | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/R/ZenodoRequest.R b/R/ZenodoRequest.R
index 5a2f388..0919062 100644
--- a/R/ZenodoRequest.R
+++ b/R/ZenodoRequest.R
@@ -57,8 +57,14 @@ ZenodoRequest <- R6Class("ZenodoRequest",
     GET = function(url, request){
       req <- paste(url, request, sep="/")
       self$INFO(sprintf("Fetching %s", req))
-      headers <- c("Authorization" = paste("Bearer",private$token))
-      
+      headers <- c(
+        "Authorization" = paste("Bearer",private$token),
+        "User-Agent" = paste(
+          "Mozilla/5.0 (X11; Linux x86_64)",
+          "AppleWebKit/537.36 (KHTML, like Gecko)",
+          "Chrome/103.0.0.0 Safari/537.36"
+        )
+      )
       r <- NULL
       if(self$verbose.debug){
         r <- with_verbose(GET(req, add_headers(headers)))
@@ -243,4 +249,4 @@ ZenodoRequest <- R6Class("ZenodoRequest",
     }
     
   )
-)
\ No newline at end of file
+)