Merge pull request #12 from CRI-iAtlas/fix_tags_queries

fix bug
CRI-iAtlas · Aug 14, 2023 · 8e8b547 · 8e8b547
2 parents 26faec0 + 09ccaf1
commit 8e8b547
Show file tree

Hide file tree

Showing 2 changed files with 31 additions and 32 deletions.
diff --git a/R/api_functions.R b/R/api_functions.R
@@ -30,12 +30,11 @@ perform_api_query <- function(
   variables,
   query_file,
   query_dir = system.file("queries", package = "iatlasGraphQLClient"),
-  api_url = "https://api.cri-iatlas.org/api"
+  api_url = "https://api-staging.cri-iatlas.org/api"
 ){
   if(!is.null(.GlobalEnv$API_URL)){
     api_url <- .GlobalEnv$API_URL
   }
-  api_url <- "https://api-staging.cri-iatlas.org/api"
   ghql_con <- ghql::GraphqlClient$new(api_url)
   ghql_query_obj <- ghql::Query$new()
   query_path <- file.path(query_dir, query_file)

diff --git a/R/api_tags_queries.R b/R/api_tags_queries.R
@@ -61,12 +61,12 @@ query_tags <- function(
 #' @export
 #' @importFrom magrittr %>%
 query_tag_samples <- function(
-  cohorts = NA,
-  samples = NA,
-  datasets = NA,
-  parent_tags = NA,
-  tags = NA,
-  type = NA,
+  cohorts = NA_character_,
+  samples = NA_character_,
+  datasets = NA_character_,
+  parent_tags = NA_character_,
+  tags = NA_character_,
+  type = NA_character_,
   paging = NA,
   ...
 ){
@@ -122,12 +122,12 @@ query_tag_samples <- function(
 #' @export
 #' @importFrom magrittr %>%
 query_tag_samples_parents <- function(
-  cohorts = NA,
-  samples = NA,
-  datasets = NA,
-  parent_tags = NA,
-  tags = NA,
-  type = NA,
+  cohorts = NA_character_,
+  samples = NA_character_,
+  datasets = NA_character_,
+  parent_tags = NA_character_,
+  tags = NA_character_,
+  type = NA_character_,
   paging = NA,
   ...
 ){
@@ -191,12 +191,12 @@ query_tag_samples_parents <- function(
 #' @export
 #' @importFrom magrittr %>%
 query_tag_sample_count <- function(
-  cohorts = NA,
-  samples = NA,
-  datasets = NA,
-  parent_tags = NA,
-  tags = NA,
-  type = NA,
+  cohorts = NA_character_,
+  samples = NA_character_,
+  datasets = NA_character_,
+  parent_tags = NA_character_,
+  tags = NA_character_,
+  type = NA_character_,
   paging = NA,
   ...
 ){
@@ -243,12 +243,12 @@ query_tag_sample_count <- function(
 #' @export
 #' @importFrom magrittr %>%
 query_tag_publications <- function(
-  cohorts = NA,
-  samples = NA,
-  datasets = NA,
-  parent_tags = NA,
-  tags = NA,
-  type = NA,
+  cohorts = NA_character_,
+  samples = NA_character_,
+  datasets = NA_character_,
+  parent_tags = NA_character_,
+  tags = NA_character_,
+  type = NA_character_,
   paging = NA,
   ...
 ){
@@ -316,12 +316,12 @@ query_tag_publications <- function(
 #' @export
 #' @importFrom magrittr %>%
 query_tags_with_parent_tags <- function(
-  cohorts = NA,
-  samples = NA,
-  datasets = NA,
-  parent_tags = NA,
-  tags = NA,
-  type = NA,
+  cohorts = NA_character_,
+  samples = NA_character_,
+  datasets = NA_character_,
+  parent_tags = NA_character_,
+  tags = NA_character_,
+  type = NA_character_,
   paging = NA,
   ...
 ){