R/rbg2bgr.r

In AtlanticR/bio.utilities: Package that interacts with bio providing base-level generic routines to make your life easier.

#' @title rbg2bgr
#' @description convert an RGB colour value into BGR which is used by googleearth
#' @family abysmally documented
#' @author  unknown, \email{<unknown>@@dfo-mpo.gc.ca}
#' @export
  rbg2bgr = function ( rgb ) {
    rgb = as.character( rgb) 
    if ( nchar( rgb) == 7 ) {
      r = substr( rgb, 2,3 )
      g = substr( rgb, 4,5 )
      b = substr( rgb, 6,7 ) 
    } else if (nchar( rgb) == 6 ) {
      r = substr( rgb, 1,2 )
      g = substr( rgb, 3,4 )
      b = substr( rgb, 5,6 )
    }
    bgr = paste( "#", b,g,r, sep="" ) 
    return (bgr)
  }