cleaned up some redundant code

KevinSee · Aug 16, 2023 · 9d044f2 · 9d044f2
1 parent 2f71019
commit 9d044f2
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/queryTagMeta.R b/R/queryTagMeta.R
@@ -55,9 +55,10 @@ queryTagMeta = function(tag_code = NULL,
                         task = 'query data from PTAGIS')
 
   # parse the response
+  parsed = httr::content(web_req,
+                         'parsed')
+
   if(!is.na(type)) {
-    parsed = httr::content(web_req,
-                           'parsed')
     if(length(parsed[[1]]) == 1) {
       parsed <- parsed %>%
         stack() %>%
@@ -93,8 +94,7 @@ queryTagMeta = function(tag_code = NULL,
     }
 
   } else {
-    parsed <- httr::content(web_req,
-                            'parsed') %>%
+    parsed <- parsed %>%
       map(.f = function(x) {
         x %>%
           stack() %>%