Merge pull request #65 from ttscience/59-fixes-get-endpoints

Optimization improvement
ttscience · Feb 20, 2024 · e94c746 · e94c746
2 parents 2c8eb53 + f6b70cc
commit e94c746
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/R/api_get_study.R b/R/api_get_study.R
@@ -13,12 +13,14 @@ api_get_study <- function(res, req) {
 api_get_study_records <- function(study_id, req, res) {
   db_connection_pool <- get("db_connection_pool")
 
+  study_id <- req$args$study_id
+
   is_study <-
-    checkmate::test_subset(
-      x = req$args$study_id,
-      choices = dplyr::tbl(db_connection_pool, "study") |>
-        dplyr::select(id) |>
-        dplyr::pull()
+    checkmate::test_true(
+      dplyr::tbl(db_connection_pool, "study") |>
+        dplyr::filter(id == study_id) |>
+        dplyr::collect() |>
+        nrow() > 0
     )
 
   if (!is_study) {