dev/shiny/global.R

In justinkamerman/QFASA: Quantitative Fatty Acid Signature Analysis

########################################
## Global
########################################
getprey <- function() {
    print('getprey()')
    c('capelin',
      'coho',
      'eulachon',
      'herring',
      'mackerel',
      'pilchard',
      'pollock',
      'sandlance',
      'squid',
      'surfsmelt_lg',
      'surfsmelt_s ')
}


getfattyacids <- function() {
    print('getfattyacids()')
    c('c14.0',
      'c16.0',
      'c16.1w7',
      'c16.2w6',
      'c16.2w4',
      'c16.3w6',
      'c17.0',
      'c16.3w4',
      'c16.4w3',
      'c16.4w1',
      'c18.0',
      'c18.1w9',
      'c18.1w7',
      'c18.2w6',
      'c18.2w4',
      'c18.3w6',
      'c18.3w4',
      'c18.3w3',
      'c18.3w1',
      'c18.4w3',
      'c18.4w1',
      'c20.1w11',
      'c20.1w9',
      'c20.1w7',
      'c20.2w6',
      'c20.3w6',
      'c20.4w6',
      'c20.3w3',
      'c20.4w3',
      'c20.5w3',
      'c22.1w11',
      'c22.1w9',
      'c22.1w7',
      'c21.5w3',
      'c22.4w6',
      'c22.5w6',
      'c22.4w3',
      'c22.5w3',
      'c22.6w3')
}