nest_tomtom {memes} | R Documentation

## Nest TomTom results columns into a data.frame column named "tomtom"

### Description

This is a convienience function for re-nesting the 'tomtom' list column if the user unnests it. Additionally, it will update the best_match information based on the ranking of the resulting 'tomtom' data.frame. This avoids having out-of-date best_match information after manipulating the 'tomtom' entries.

### Usage

    nest_tomtom(data)

### Arguments

`data` | tomtom results data.frame after unnesting the 'tomtom' column

### Details

**NOTE:** that the resulting columns may not be in the same order, so operations like 'identical()' before & after a nest/renest operation may fail even though the column values are unchanged.

### Value

the input data.frame with the match_* columns nested into a column named 'tomtom'

### Examples

    if (meme_is_installed()){
    motif <- universalmotif::create_motif("CCRAAAW")
    db <- system.file("extdata/flyFactorSurvey_cleaned.meme", package = "memes")
    res <- runTomTom(motif, database = db)
    data <- tidyr::unnest(res, "tomtom")
    identical(nest_tomtom(data), res)
    }

[Package memes version 1.0.4 Index]