Documentation and settings

The configurations set for this oncoEnrichR report are outlined below, in addition to an overview of knowledge resources used.

Configuration values for onco_enrich()


Annotation resources

The analysis performed in the oncoEnrichR report is based on the following main tools and knowledge resources:

for(n in names(onc_enrich_report[['config']][['resources']])){
  if(onc_enrich_report[['config']][['resources']][[n]]$resource_type == 'software'){
    license <- onc_enrich_report[['config']][['resources']][[n]]$license
    s <- glue::glue(
      "    * [{onc_enrich_report[['config']][['resources']][[n]]$name}]",
      "({onc_enrich_report[['config']][['resources']][[n]]$url}) - ", "{onc_enrich_report[['config']][['resources']][[n]]$description} ",  "({onc_enrich_report[['config']][['resources']][[n]]$version}) - ",
      "[{onc_enrich_report[['config']][['resources']][[n]]$license}]",
      "({onc_enrich_report[['config']][['resources']][[n]]$license_url})")
    if(license == "."){
      s <- glue::glue(
        "    * [{onc_enrich_report[['config']][['resources']][[n]]$name}]",
        "({onc_enrich_report[['config']][['resources']][[n]]$url}) - ", "{onc_enrich_report[['config']][['resources']][[n]]$description} ",  "({onc_enrich_report[['config']][['resources']][[n]]$version}) - ",
        "**See below for licensing requirements**")
    }else if(license == "Open Access"){
      s <- glue::glue(
        "    * [{onc_enrich_report[['config']][['resources']][[n]]$name}]",
        "({onc_enrich_report[['config']][['resources']][[n]]$url}) - ", "{onc_enrich_report[['config']][['resources']][[n]]$description} ",  "({onc_enrich_report[['config']][['resources']][[n]]$version}) - ",
        "*Open Access*")
    }
    cat(s,sep="\n")
  }
}



for(n in names(onc_enrich_report[['config']][['resources']])){
  if(onc_enrich_report[['config']][['resources']][[n]]$resource_type != 'software'){
    license <- onc_enrich_report[['config']][['resources']][[n]]$license

    s <- glue::glue(
      "    * [{onc_enrich_report[['config']][['resources']][[n]]$name}]",
      "({onc_enrich_report[['config']][['resources']][[n]]$url}) - ", "{onc_enrich_report[['config']][['resources']][[n]]$description} ",  "({onc_enrich_report[['config']][['resources']][[n]]$version}) - ",
      "[{onc_enrich_report[['config']][['resources']][[n]]$license}]",
      "({onc_enrich_report[['config']][['resources']][[n]]$license_url})")
    if(license == "."){
      s <- glue::glue(
        "    * [{onc_enrich_report[['config']][['resources']][[n]]$name}]",
        "({onc_enrich_report[['config']][['resources']][[n]]$url}) - ", "{onc_enrich_report[['config']][['resources']][[n]]$description} ",  "({onc_enrich_report[['config']][['resources']][[n]]$version}) - ",
        "**<sup>\\*</sup>See below for licensing requirements**")
    }else if(license == "Open Access"){
      s <- glue::glue(
        "    * [{onc_enrich_report[['config']][['resources']][[n]]$name}]",
        "({onc_enrich_report[['config']][['resources']][[n]]$url}) - ", "{onc_enrich_report[['config']][['resources']][[n]]$description} ",  "({onc_enrich_report[['config']][['resources']][[n]]$version}) - ",
        "*Open Access*")
    }
    cat(s,sep="\n")

  }
}

cat(glue::glue(
  " <br><br><sup>\\*</sup>*[KEGG]({onc_enrich_report[['config']][['resources']][['kegg']]$url})",
  " and [CGC]({onc_enrich_report[['config']][['resources']][['cgc']]$url}) are freely",
  " available for academic, non-commercial",
  " use. For commercial usage, end users need to consult [https://www.pathway.jp](https://www.pathway.jp/)",
  " and [https://cancer.sanger.ac.uk/cosmic/license](https://cancer.sanger.ac.uk/cosmic/license)",
  " for licensing inquiries.*<br><br>"), sep="\n")


sigven/oncoEnrichR documentation built on Aug. 31, 2023, 8:05 a.m.