spectra_metadata_colourScheme_UI_helper {peakPantheR} | R Documentation

## UI export plot helper - sample colour

### Description

Return a vector of spectra colours based on a metadata column

### Usage

    spectra_metadata_colourScheme_UI_helper(
        annot,
        splColrColumn = NULL
    )

### Arguments

`annot` | (peakPantheRAnnotation) Annotation object
`splColrColumn` | (str) NULL, None or a spectraMetadata column for colouring each sample

### Value

(character) Vector of colours

### Examples

    ## Initialise a peakPantheRAnnotation object with 3 samples and 2 targeted
    ## compounds

    # Paths to spectra files
    spectraPaths <- c('./path/file1', './path/file2', './path/file3')

    # targetFeatTable
    targetFeatTable <- data.frame(matrix(vector(), 2, 8, dimnames=list(c(),
                        c('cpdID','cpdName','rtMin','rt','rtMax','mzMin','mz',
                        'mzMax'))), stringsAsFactors=FALSE)
    targetFeatTable[1,] <- c('ID-1', 'Cpd 1', 3310., 3344.888, 3390., 522.194778,
                            522.2, 522.205222)
    targetFeatTable[2,] <- c('ID-2', 'Cpd 2', 3280., 3385.577, 3440., 496.195038,
                            496.2, 496.204962)
    targetFeatTable[,c(3:8)] <- vapply(targetFeatTable[,c(3:8)], as.numeric,
                                        FUN.VALUE=numeric(2))

    emptyAnnotation <- peakPantheRAnnotation(spectraPaths=spectraPaths,
                                            targetFeatTable=targetFeatTable)

    # colour scheme with no spectraMetadata
    outputAnnotationFeatureMetadata_UI_helper(emptyAnnotation)
    # NULL

[Package peakPantheR version 1.4.0 Index]