Nothing
## -----------------------------------------------------------------------------
# Imports
library(airr)
library(tibble)
# Read Rearrangement example file
f1 <- system.file("extdata", "rearrangement-example.tsv.gz", package="airr")
rearrangement <- read_rearrangement(f1)
glimpse(rearrangement)
## -----------------------------------------------------------------------------
# Read Repertoire example file
f2 <- system.file("extdata", "repertoire-example.yaml", package="airr")
repertoire <- read_airr(f2)
glimpse(repertoire)
# Read GermlineSet example file
f3 <- system.file("extdata", "germline-example.json", package="airr")
germline <- read_airr(f3)
glimpse(germline)
## -----------------------------------------------------------------------------
x1 <- file.path(tempdir(), "airr_out.tsv")
write_rearrangement(rearrangement, x1)
## -----------------------------------------------------------------------------
x2 <- file.path(tempdir(), "airr_repertoire_out.yaml")
write_airr(repertoire, x2, format="yaml")
x3 <- file.path(tempdir(), "airr_germline_out.json")
write_airr(germline, x3, format="json")
## -----------------------------------------------------------------------------
# Validate Rearrangement data.frame
validate_rearrangement(rearrangement)
# Validate an AIRR Data Model
validate_airr(repertoire)
# Validate AIRR Data Model records individual
validate_airr(germline, each=TRUE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.