get_metadata: get_metadata
In erikor/slinky: Putting the fun in LINCS L1000 data analysis

Description Usage Arguments Details Value Examples

The accessor function retrieves metadata from Slinky object.

get_metadata(x)

## S4 method for signature 'Slinky'
get_metadata(x)

`x`	a Slinky object

As it turns out 'metadata' was a poor choice for the accessor function because it can be masked if the user loads the 'SummarizedExperiment' package after slinky. So this provides an alternative. Eventually 'slinky::metadata' should be deprecated.

The accessor function returns a data.frame containing the metadata.

# for build/demo only.  You MUST use your own key when using the slinky
# package.
user_key <- httr::content(httr::GET('https://api.clue.io/temp_api_key'),
                          as='parsed')$user_key
sl <- Slinky(user_key,
                 system.file('extdata', 'demo.gctx',
                      package='slinky'),
                 system.file('extdata', 'demo_inst_info.txt',
                     package = 'slinky'))
md <- get_metadata(sl[, 1:10])