R/post-variants.R

In ramiromagno/gwasrapidd: 'REST' 'API' Client for the 'NHGRI'-'EBI' 'GWAS' Catalog

#' Browse dbSNP from SNP identifiers.
#'
#' This function launches the web browser at dbSNP and opens a tab for each SNP
#' identifier.
#'
#' @param variant_id A variant identifier, a character vector.
#'
#' @return Returns \code{TRUE} if successful. Note however that this
#' function is run for its side effect.
#' @examples
#' open_in_dbsnp('rs56261590')
#' @export
open_in_dbsnp <- function(variant_id) {

  if (!(rlang::is_character(variant_id) ))
    stop("variant_id must be a character vector.")

  if (interactive()) {
    urls <-
      glue::glue("https://www.ncbi.nlm.nih.gov/snp/{variant_id}")

    purrr::walk(urls, utils::browseURL)

    return(invisible(TRUE))
  } else {
    return(invisible(TRUE))
  }
}

#' Browse GTEx from SNP identifiers.
#'
#' This function launches the web browser at the GTEx Portal and opens a tab for
#' each SNP identifier.
#'
#' @param variant_id A variant identifier, a character vector.
#'
#' @return Returns \code{TRUE} if successful. Note however that this
#' function is run for its side effect.
#' @examples
#' open_in_gtex('rs56261590')
#' @export
open_in_gtex <- function(variant_id) {
  if (!(rlang::is_character(variant_id) ))
    stop("variant_id must be a character vector.")

  if (interactive()) {
    urls <-
      glue::glue("https://gtexportal.org/home/snp/{variant_id}")

    purrr::walk(urls, utils::browseURL)

    return(invisible(TRUE))
  } else {
    return(invisible(TRUE))
  }
}