#' Funksjon som angir hvilket format en figur skal lagres i. Inneholder også definisjon av fargepaletter.
#'
#' Formatet er spesifisert gjennom endinga til filnavnet
#' Tillatt: png, pdf, jpg, bmp, tif, svg og ps
#' Velge farger: BlaaRapp, BlaaHNpms287, GronnHNpms624, GronnHNpms342
#'
#' @param outfile Navn på fil som skal skrives til. Tom tekststreng skriver til skjerm
#' @param res Oppløsningen på raster-output
#' @param width Bredde på output ved gitt oppløsning
#' @param height Høyde på output ved gitt oppløsning
#' @param pointsizePDF Skrifstørrelse i pdf-output
#' @param fargepalett Hvilken fargepalett skal brukes
#' @return UtFigFil List med en del figurparametre
#' @keywords rapporteket norgast
#' @importFrom grDevices bmp jpeg pdf png rgb tiff
#' @export
figtype <- function(outfile='', width=3*595, height=3*595, res=3*72, pointsizePDF=11,
fargepalett='BlaaOff'){
filtype <- substr(outfile,nchar(outfile)-2 ,nchar(outfile))
if (substr(filtype,1,1)=='.') {filtype <- substr(filtype,2,3)}
fonttype <- 'sans' #windowsFont('Helvetica')
switch(filtype,
png = png(filename = outfile, res=res, family=fonttype, width=width, height=height),
jpg = jpeg(filename = outfile, res=res, width=width, height=height),
# pdf = pdf(file = outfile, width=7, height=7*height/width, family=fonttype,
# pointsize=pointsizePDF),
pdf = cairo_pdf(file = outfile, width=7, height=7*height/width, family=fonttype,
pointsize=pointsizePDF),
bmp = bmp(filename = outfile, res=res, width=width, height=height),
tif = tiff(filename = outfile, res=res, width=width, height=height),
wmf = win.metafile(filename = outfile, width = 7, height = 7*height/width,
pointsize = pointsizePDF),
svg = svg(file = outfile, width=7, height=7*height/width, family=fonttype,
pointsize=pointsizePDF)
)
#col2rgb for å oversette hex
metning <- rev(c(1,0.7,0.45,0.25,0.1))*255
#Offentliggjøringsfarger. Består av 6 blånyanser.
OffBlaaAlle <- rgb(red=c(198, 107, 66, 33, 8, 0), green=c(219, 174, 146, 113, 69, 0), #rev(
blue=c(239, 214, 198, 181, 148, 89), maxColorValue=255) #6 nyanser av blå
#Alle standard "offentliggjøringsfarger":
#HEX: #c6dbef #6baed6 #4292c6 #2171b5 #084594 #000059 #FF7260 #4D4D4D #737373 #A6A6A6 #DADADA
OffAlleFarger <- c('#c6dbef', '#6baed6', '#4292c6', '#2171b5', '#084594', '#000059', '#FF7260', '#4D4D4D', '#737373', '#A6A6A6', '#DADADA')
rgb(red = c(198, 107, 66, 33, 8, 0, 255, 077, 115, 166, 204), #rev(
green = c(219, 174, 146, 113, 69, 0, 114, 077, 115, 166, 204),
blue = c(239, 214, 198, 181, 148, 89, 096, 077, 115, 166, 204),
maxColorValue=255)
UtFarger <- switch(fargepalett,
BlaaRapp = rgb(red=c(0,86,149,218), green=c(79,139,189,230), blue=c(158,191,230,242), maxColorValue=255),
#hsv(7/12, s=c(1,0.55,0.35,0.1,0), v=c(0.62,0.75,0.9,0.95,1)),
#BlaaOff = OffBlaaAlle[c(2,3,5,6)], "#084594" "#2171B5" "#6BAED6" "#C6DBEF" #Velger farge nummer 1,2,4 og 5
BlaaOff = OffAlleFarger[rev(c(1,2,4,5))],
BlaaOffAlle = OffAlleFarger[6:1],
StotteOff = OffAlleFarger[7:11],
#rgb(red=c(255,77,115,166,204), green=c(114,77,115,166,204),
# blue=c(96,77,115,166,204), maxColorValue=255), #rød, 4 grånyanser)
OffAlleFarger = OffAlleFarger,
BlaaHNpms287 = rgb(red=0,green=50,blue=131, maxColorValue=255, alpha=metning),
GronnHNpms624 = rgb(red=131,green=156,blue=143, maxColorValue=255, alpha=metning),
GronnHNpms342 = rgb(red=47,green=101,blue=74, maxColorValue=255, alpha=metning)
)
#NB: Mørke farger vil dekke over lysere når bruker samme farge med ulik metning!
UtFigFil <- list(res, width, height, UtFarger)
names(UtFigFil) <- c('res', 'width', 'height', 'farger')
return(invisible(UtFigFil))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.