chariot: chariot Package

## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  message = FALSE,
  results = 'hide'
)

## ----setup,message=FALSE------------------------------------------------------
library(chariot)

## -----------------------------------------------------------------------------
conn <- connectAthena()

## -----------------------------------------------------------------------------
ex1 <- ho_grep_regimens("Trastuzumab",
                 conn = conn)

## ----results='markup'---------------------------------------------------------
ex1

## -----------------------------------------------------------------------------
ex2 <- 
  ho_grep_regimens("Trastuzumab",
                   conn = conn, 
                   component_count = 2)

## ----results='markup'---------------------------------------------------------
ex2

## -----------------------------------------------------------------------------
ex3 <- 
  ho_grep_regimens("Trastuzumab",
                   conn = conn, 
                   component_count = 3)

## ----results='markup'---------------------------------------------------------
ex3

## -----------------------------------------------------------------------------
ex4 <- 
  ho_grep_regimens("Trastuzumab",
                   conn = conn, 
                   component_count = Inf)

## ----error=TRUE---------------------------------------------------------------
ho_grep_regimens("tastuzumab",
                 conn = conn)

## -----------------------------------------------------------------------------
ex5 <- ho_lookup_antineoplastics(35804201,
                          conn = conn)

## ----results='markup'---------------------------------------------------------
ex5

## -----------------------------------------------------------------------------
ex6 <-
ho_lookup_regimen(35803229,35803361,
                  conn = conn)

## ----results='markup'---------------------------------------------------------
ex6

## -----------------------------------------------------------------------------
Paclitaxel <- get_concept(concept_id = 35803229)
Trastuzumab <- get_concept(concept_id = 35803361)

## ----results='markup'---------------------------------------------------------
Paclitaxel

## ----results='markup'---------------------------------------------------------
Trastuzumab 

## -----------------------------------------------------------------------------
ex7 <-
ho_lookup_regimen(Paclitaxel,
                  Trastuzumab, 
                  conn = conn)

## ----results='markup'---------------------------------------------------------
ex7

## -----------------------------------------------------------------------------
dcAthena(conn = conn)