R/stations.R

In NRM-MOC/MoCiS: Monitoring of Contaminants in Sweden

##' A list with station names and coordinates
##'
##' None
##' @title stations
##' @param ... Ignored.
##' @return A list with station names and coordinates
##' @author Erik Lampa
##' @export
stations <- function(...) {
    ## Provide a link between the short names used in the data in the labels and
    ## coordinates of the stations.
    list(hav = list("40G7" = list(name = "E Bornholm basin (offsh.)",
                                  NKOO = 6181395, EKOO = 1606416),
                    "46H0" = list(name = "N Baltic Proper (offsh.)",
                                  NKOO = 6523708, EKOO = 1771651),
                    "49G9" = list(name = "Sea of \U00C5land (offsh.)",
                                  NKOO = 6686566, EKOO = 1696248),
                    "51G9" = list(name = "Bothnian Sea (offsh.)",
                                  NKOO = 6798326, EKOO = 1698277),
                    ABBE = list(name = "Abbek\U00E5s",
                                NKOO = 6134000, EKOO = 1360700),
                    ANGV = list(name = "\U00C4ngsk\U00E4rsklubb (spring)",
                                NKOO = 6715100, EKOO = 1629400),
                    ANGK = list(name = "\U00C4ngsk\U00E4rsklubb",
                                NKOO = 6715100, EKOO = 1629400),
                    BYXE = list(name = "Byxelkrok",
                                NKOO = 6365800,EKOO = 1571500),
                    FLAD = list(name = "Fladen",
                                NKOO = 6348600, EKOO = 1258800),
                    GAFJ = list(name = "Gaviksfj\U00E4rden",
                                NKOO = 7005100, EKOO = 1642800),
                    HABU = list(name = paste0("W Han\U00F6", "bukten"),
                                NKOO = 6181700, EKOO = 1404600),
                    HAFJ = list(name = "Harufj\U00E4rden",
                                NKOO = 7294000, EKOO = 1825900),
                    HOLM = list(name = paste0("Holm\U00F6","arna"),
                                NKOO = 7073600, EKOO = 1750800),
                    KIFJ = list(name = paste0("Kinnb\U00E4","cksfj\U00E4rden"),
                                NKOO = 7204900, EKOO = 1759200),
                    KULL = list(name = "Kullen",
                                NKOO = 6249400, EKOO = 1288200),
                    LAFJ = list(name = "L\U00E5ngvindsfj\U00E4rden",
                                NKOO = 6852200, EKOO = 1587100),
                    LAGN = list(name = "Lagn\U00F6",
                                NKOO = 6593400, EKOO = 1660100),
                    LAND = list(name = "Landsort",
                                NKOO = 6510000, EKOO = 1627500),
                    RAFJ = list(name = "R\U00E5nefj\U00E4rden",
                                NKOO = 7310900, EKOO = 1802700),
                    UTLA = list(name = "Utl\U00E4ngan",
                                NKOO = 6208830, EKOO = 1501600),
                    UTLV = list(name = "Utl\U00E4ngan (spring)",
                                NKOO = 6208830, EKOO = 1501600),
                    VADO = list(name = paste0("V\U00E4","der\U00F6","arna"),
                                NKOO = 6502000, EKOO = 1218300),
                    SEGO = list(name = "SE Gotland",
                                NKOO = 6294700, EKOO = 1664600),
                    TJRN = list(name = "Tj\U00E4rn\U00F6",
                                NKOO = 6539496, EKOO = 1230900),
                    FJBA = list(name = "Fj\U00E4llbacka",
                                NKOO = 6510100, EKOO = 1236200),
                    KVFJ = list(name = paste0("Kv\U00E4","d\U00F6","fj\U00E4rden"),
                                NKOO = 6434800, EKOO = 1556700),
                    NIDI = list(name = "Nidingen",
                                NKOO = 6368600, EKOO = 1265100),
                    ORFJ = list(name = "\U00D6refj\U00E4rden",
                                NKOO = 7039900, EKOO = 1679300),
                    STKA = list(name = "Stora Karls\U00F6",
                                NKOO = 6352800, EKOO = 1631500)),
         limn = list(
             ABIS = list(name = "Abiskojaure",
                         NKOO = 7582080, EKOO = 1617490),
             ALLG = list(name = "Allgjuttern",
                         NKOO = 6424890, EKOO =	1517240),
             BOLM = list(name = "Bolmen",
                         NKOO = 6317500, EKOO =	1376100),
             BRAN = list(name = "Br\U00E4nntr\U00E4sket",
                         NKOO = 7280950, NKOO =	1759260),
             BYSJ = list(name = "Bysj\U00F6n",
                         NKOO = 6580860, EKOO =	1302640),
             BAST = list(name = "B\U00E4stetr\U00E4sk",
                         NKOO = 6425550, EKOO =	1685530),
             DEGE = list(name = "Degervattnet",
                         NKOO = 7085120, EKOO =	1520860),
             FIOL = list(name = "Fiolen",
                         NKOO = 6330250, EKOO =	1422670),
             FRAC = list(name = paste0("Fr\U00E4","cksj\U00F6n"),
                         NKOO = 6452890, EKOO =	1286650),
             FYSI = list(name = "Fysingen",
                         NKOO = 6607490, EKOO =	1618850),
             GIPS = list(name = "Gipsj\U00F6n",
                         NKOO = 6727290, EKOO =	1380820),
             HJAR = list(name = "Hj\U00E4rtsj\U00F6n",
                         NKOO = 6325150, EKOO =	1466750),
             HORS = list(name = "Horsan",
                         NKOO = 6420080, EKOO =	1680130),
             KRAG = list(name = "Krageholmssj\U00F6n",
                         NKOO = 6153750, EKOO =	1370870),
             KRAN = list(name = "Krankesj\U00F6n",
                         NKOO = 6177600, EKOO =	1351950),
             LORE = list(name = "Lilla \U00D6resj\U00F6n",
                         NKOO = 6386650, EKOO =	1292430),
             LIMM = list(name = "Limmingsj\U00F6n",
                         NKOO = 6608040, EKOO =	1427420),
             REMM = list(name = "Remmarsj\U00F6n",
                         NKOO = 7086190, EKOO =	1621320),
             SKAR = list(name = "Sk\U00E4rg\U00F6len",
                         NKOO = 6406090, EKOO =	1486730),
             SPJU = list(name = "Spjutsj\U00F6n",
                         NKOO = 6724670, EKOO =	1480310),
             SENV = list(name = "Stora Env\U00E4ttern",
                         NKOO = 6555870, EKOO =	1588690),
             STEN = list(name = "Stensj\U00F6n",
                         NKOO = 6836730, EKOO =	1540830),
             STSK = list(name = "Stora Sk\U00E4rsj\U00F6n",
                         NKOO = 6286060, EKOO =	1332050),
             STBA = list(name = "Stor-Backsj\U00F6n",
                         NKOO = 6952200, EKOO =	1433830),
             STBJ = list(name = "Stor-Bj\U00F6rsj\U00F6n",
                         NKOO = 7060830, EKOO =	1322870),
             STVI = list(name = "Storvindeln",
                         NKOO = 7289600, EKOO =	1560800),
             SVAR = list(name = "Svartsj\U00F6n",
                         NKOO = 6516090, EKOO =	1408390),
             SANN = list(name = "S\U00E4nnen",
                         NKOO = 6244210, EKOO =	1472340),
             TJUL = list(name = "Stor-Tjultr\U00E4sket",
                         NKOO = 7317990, EKOO =	1511960),
             TARN = list(name = "T\U00E4rnan",
                         NKOO = 6606880, EKOO =	1644780),
             ALGS = list(name = "\U00C4lgsj\U00F6n",
                         NKOO = 6552750, EKOO =	1532340),
             OVSK = list(name = "\U00D6vre Sk\U00E4rsj\U00F6n",
                         NKOO = 6635320, EKOO =	1485710)
         ))
}