R/dbSNP_query_check_helper.R

Defines functions dbSNP_query_check

Documented in dbSNP_query_check

##NCBI query check helper function
#' dbSNP_query_check
#'
#' @param query - raw query data from NCBI dbSNP API
#'
#' @return - vector containing either 0 (denoting successful query) or NA (unsuccessful query)
dbSNP_query_check <- function(query){
  if(is.null(query$error)){ #if there is no error in query return 0
    return(0)
  }
  else{ #if there is an error in query, return NA
    return(NA)
  }
}
LucaAnholt/PanViz documentation built on April 17, 2022, 7:28 a.m.