migrate to new api

Author: vcameron1

R/coleo_api_utils.R

@@ -17,7 +17,7 @@ server <- function(){
 base <- function() {
   path <- Sys.getenv("COLEOAPI_PATH")
   if (path==''){
-    path="/newapi/v1"
+    path="/newapi/v2"
   }
   return(path)
 }

tests/testthat/test-coleo_api_utils.R

@@ -3,7 +3,7 @@ test_that("api utils do the right thing", {
   setup_call <- coleo_begin_req("api")
   expect_s3_class(setup_call, class = "httr2_request")
 
-  expect_equal(setup_call$url, "https://coleo.biodiversite-quebec.ca/newapi/v1")
+  expect_equal(setup_call$url, "https://coleo.biodiversite-quebec.ca/newapi/v2")
 
 })
 

tests/testthat/test-coleo_request.R

@@ -4,7 +4,7 @@ without_internet({
   test_that("coleo_request makes a good request", {
 
     expect_GET(coleo_request_general(endpoint = "cells", response_as_df = FALSE, schema = "public", 'cell_code' = "eq.foo"),
-               url = "https://coleo.biodiversite-quebec.ca/newapi/v1/cells?cell_code=eq.foo")
+               url = "https://coleo.biodiversite-quebec.ca/newapi/v2/cells?cell_code=eq.foo")
   })
 })