From 78ebea169e63a40887ca9e789d787ca6998311db Mon Sep 17 00:00:00 2001
From: Sermet Pekin <96650846+SermetPekin@users.noreply.github.com>
Date: Mon, 13 Jan 2025 13:15:09 +0300
Subject: [PATCH] Update internal_evds.R

---
 R/internal_evds.R | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/R/internal_evds.R b/R/internal_evds.R
index b55570d..017f901 100644
--- a/R/internal_evds.R
+++ b/R/internal_evds.R
@@ -1,10 +1,15 @@
 quick_check_evds <- function(key = "..") {
-  url <- create_evds_url("subject", key = key)
-  gelen <- request_httr2_helper_evds(url, cache = F)
-  if (!is_response(gelen)) {
-    return(false)
+  domain <- "https://evds2.tcmb.gov.tr/service/evds"
+
+  api_key_evds <- key
+  if (is.null(key)) {
+    api_key_evds <- get_api_key("evds")
   }
-  T
+
+  url <- glue::glue("{domain}/categories/type=json")
+  resp <- req_version_2_w_header(url, key = key)
+
+  return(is_response(resp))
 }
 mock_data_evds <- function() {
   dates <- seq(from = lubridate::ymd("2010-1-1"), to = lubridate::ymd("2025-1-1"), by = "month")