fix issue in last commit

Rafnuss · Rafnuss · commit 4d1ab4911a09 · 2025-02-17T21:06:59.000+01:00
diff --git a/R/geopressure_map_mismatch.R b/R/geopressure_map_mismatch.R
@@ -64,7 +64,7 @@ geopressure_map_mismatch <- function(tag,
   }
 
   # Request URLS
-  req <- httr2::request("https://us-central1-cloud-service-mgravey.cloudfunctions.net/map") |>
+  req <- httr2::request("https://glp.mgravey.com/GeoPressure/v2/map/") |>
     httr2::req_body_json(body) |>
     httr2::req_timeout(timeout) |>
     httr2::req_retry(max_tries = 3) |>
@@ -80,7 +80,7 @@ geopressure_map_mismatch <- function(tag,
     })
 
   if (debug) {
-    httr2::req_verbose(req, body_req = TRUE, body_resp = TRUE, info = TRUE)
+    req <- httr2::req_verbose(req, body_req = TRUE, body_resp = TRUE, info = TRUE)
   }
 
   # Perform the request and convert the response to json

Original file line number	Diff line number	Diff line change
`@@ -64,7 +64,7 @@ geopressure_map_mismatch <- function(tag,`
`64`	`64`	`}`
`65`	`65`
`66`	`66`	`# Request URLS`
`67`		`- req <- httr2::request("https://us-central1-cloud-service-mgravey.cloudfunctions.net/map") \|>`
	`67`	`+ req <- httr2::request("https://glp.mgravey.com/GeoPressure/v2/map/") \|>`
`68`	`68`	`httr2::req_body_json(body) \|>`
`69`	`69`	`httr2::req_timeout(timeout) \|>`
`70`	`70`	`httr2::req_retry(max_tries = 3) \|>`
`@@ -80,7 +80,7 @@ geopressure_map_mismatch <- function(tag,`
`80`	`80`	`})`
`81`	`81`
`82`	`82`	`if (debug) {`
`83`		`- httr2::req_verbose(req, body_req = TRUE, body_resp = TRUE, info = TRUE)`
	`83`	`+ req <- httr2::req_verbose(req, body_req = TRUE, body_resp = TRUE, info = TRUE)`
`84`	`84`	`}`
`85`	`85`
`86`	`86`	`# Perform the request and convert the response to json`