R/open_in_nci_thesaurus.R

In maialab/mskcc.oncotree: Interface to the 'OncoTree' API

#' Browse the NCIt
#'
#' Opens the web browser at NCI Thesaurus for the entries provided as NCI codes.
#'
#' @param nci_code A character vector of NCI codes.
#'
#' @return Run for its side effect.
#'
#' @examples
#' \dontrun{
#' open_in_nci_thesaurus('C3107')
#' }
#' @export
open_in_nci_thesaurus <- function(nci_code) {

  if (interactive()) {
    urls <-
      glue::glue("https://ncit.nci.nih.gov/ncitbrowser/ConceptReport.jsp?dictionary=NCI_Thesaurus&ns=ncit&code={nci_code}")

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

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

}