View source: R/check-annotation-keys.R
| check_annotation_keys | R Documentation |
Checks that all annotation keys on a file, in a file view, or in a data frame
are valid annotations. check_annotation_keys() returns any invalid
annotation keys; valid_annotation_keys() returns valid annotation keys.
check_annotation_keys(x, annotations, ...) ## S3 method for class ''NULL'' check_annotation_keys(x, annotations, ...) ## S3 method for class 'synapseclient.entity.File' check_annotation_keys(x, annotations, syn, ...) ## S3 method for class 'data.frame' check_annotation_keys(x, annotations, ...) ## S3 method for class 'synapseclient.table.CsvFileTable' check_annotation_keys(x, annotations, ...)
x |
An object to check. |
annotations |
A data frame of annotation definitions. Must contain at
least three columns: |
... |
Additional parameters passed to |
syn |
Synapse client object |
A condition object indicating whether keys match the given annotation dictionary. Erroneous keys are included as data within the object.
NULL: Return NULL
synapseclient.entity.File: Check annotation keys in a Synapse file
data.frame: Check annotation keys in a data frame
synapseclient.table.CsvFileTable: Check annotation keys for a Synapse table
valid_annotation_keys()
annots <- data.frame(
key = c("assay", "fileFormat", "fileFormat", "fileFormat", "species"),
value = c("rnaSeq", "fastq", "txt", "csv", "Human"),
columnType = c("STRING", "STRING", "STRING", "STRING", "STRING")
)
dat1 <- data.frame(x = 1)
dat2 <- data.frame(assay = "rnaSeq")
check_annotation_keys(dat1, annots)
check_annotation_keys(dat2, annots)
## Not run:
syn <- synapse$Synapse()
syn$login()
annots <- get_synapse_annotations(syn = syn)
my_file <- syn$get("syn11931757", downloadFile = FALSE)
check_annotation_keys(my_file, annots, syn)
dat <- data.frame(non_annotation = 5, assay = "rnaSeq")
check_annotation_keys(dat, annots)
fv <- syn$tableQuery("SELECT * FROM syn17020234")
check_annotation_keys(fv, annots)
# If you don't specify an annotations data frame, these functions will
# download annotations automatically using `get_synapse_annotations()` (must
# be logged in to Synapse)
my_file <- syn$get("syn11931757", downloadFile = FALSE)
check_annotation_keys(my_file, syn = syn)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.