R/veidarfaeri.R

In hafroAssmt: Hafro Assessment Toolbox

veidarfaeri <- function(x=NULL, names=FALSE)
{
  ## 1  Suppress factor conversion
  osaf <- options(stringsAsFactors=FALSE)
  on.exit(options(osaf))

  ## 2  Prepare key
  key <- c(0,"Stundar ekki veiрar",
           1,"Lнna",
           2,"Net",
           3,"Handfжri",
           4,"Юorsknуt",
           5,"Dragnуt 135 mm",
           6,"Botnvarpa",
           7,"Flotvarpa",
           8,"Spжrlingsvarpa",
           9,"Humarvarpa",
           10,"Sнldarnуt",
           11,"Reknet",
           12,"Loрnunуt",
           13,"Loрnuflotvarpa",
           14,"Rжkjuvarpa",
           15,"Hцrpudiskplуgur/Scallop dr.",
           16,"Grбlърulнna",
           17,"Юorskgildra",
           18,"Krabbagildra",
           19,"Gulllaxavarpa",
           20,"Эmis veiрarfжri",
           21,"Sнldar-/kolmunnaflotvarpa",
           22,"Botnvarpa klжdd",
           23,"Seiрaflotvarpa",
           24,"Flotvarpa klжdd",
           25,"Grбsleppunet",
           26,"Dragnуt 120 mm",
           27,"Dragnуt klжdd, 40 mm",
           28,"Kassabotnvarpa",
           29,"Rauрmaganet",
           30,"Rжkjuvarpa m/ leggpoka",
           31,"Sandsнlisvarpa",
           32,"Lagnet",
           33,"Flotvarpa Gloria уklжdd",
           34,"Flotvarpa Gloria klжdd",
           35,"Dragnуt 155 mm",
           36,"Lуfуtlнna / Flotlнna",
           37,"Vatnsюrэstiplуgur",
           38,"Kъffisksplуgur",
           39,"Beitukуngsgildra",
           40,"Нgulkeraplуgur",
           41,"Нgulkerakafari",
           42,"Krжklingalнna",
           43,"Veiрistцng",
           44,"Sнldar-/kolmunnaflotvarpa meр skilju",
           45,"Sjуstцng",
           55,"Dragnуt meр leggpoka",
           59,"Botnvarpa, 135 mm m. skilju, 60mm rimlab",
           60,"Botnvarpa 135 mm н poka",
           61,"Fуtreipisbotnvarpa",
           62,"Botnvarpa meр skilju",
           63,"Botnvarpa meр skilju, 50mm rimlabil",
           64,"Botnvarpa meр skilju, 52mm rimlabil",
           65,"Botnvarpa meр skilju, 55mm rimlabil",
           66,"Botnvarpa meр skilju og yfirpoka",
           68,"Botnvarpa klжdd (B2-84), stжrri hlerar",
           70,"Botnvarpa meр leggpoka",
           71,"Landbeitt lнna",
           72,"Net - SMN",
           73,"Botnvarpa klжdd (SMB)",
           74,"Botnvarpa klжdd (SMG)",
           75,"Tveggja bбta troll",
           76,"Tvжr botnvцrpur",
           77,"Botnvarpa klжdd (SMH)",
           78,"Botnvarpa klжdd (SMH djъpslур)",
           79,"Botnvarpa meр leggglugga",
           80,"Dragnуt meр leggglugga",
           90,"Бdrбttarnet",
           91,"Skцtuselsnet",
           99,"Уskrбр veiрarfжri",
           130,"Van Veen greip / Van Veen grab 35-40 kg",
           131,"Van Veen greip / Van Veen grab 70-100 kg",
           132,"Myndavйl / Camera",
           133,"Petersen greip / Petersen grab",
           134,"Shipek greip / Shipek grab",
           135,"Kjarnataki / Smцgen box corer",
           136,"RP sleрi / RP sledge",
           137,"Sneli sleрi / detr. sledge (Sneli)",
           138,"Skrapa / Triangle dredge",
           139,"Agassiz troll / Agassiz trawl",
           141,"Tucker lirfur hбfur 1 fermetra op",
           142,"Tucker lirfur hбfur 4 fermetra op",
           143,"WP-80 Eggja hбfur sem er 80 cm н юvermбl",
           144,"WP-II   Бtuhбfur",
           150,"Sonda",
           160,"ROTV / Dragsleрi meр myndavйl",
           161,"ROV / Fjarstэrр grind meр myndavйlum",
           162,"Litmyndir",
           163,"Svarthvнtt",
           164,"Hljурsjб / Scanning sonar",
           165,"Hljурnemi / Hydrophone",
           166,"GPS / GPS neрansjбvarstaрsetning",
           167,"Scanmar nemar",
           168,"Dэptarmжlir / Dэptarmжlir skips",
           169,"Hцfuрlнnusуnar",
           170,"Skipsstraumsjб / Doppler um borр н skipi",
           171,"DST mжlar / Sнritandi hita og dэpisnemar",
           172,"Sandsнlaplуgur",
           173,"Sandsнlaplуgur (kъffisksplуgur)",
           174,"KC greip / KC Day grab")
  key <- matrix(key, ncol=2, byrow=TRUE)
  key <- data.frame(id=as.integer(key[,1]), lysing=key[,2], row.names=as.integer(key[,1]))

  ## 3  Look up
  if(is.null(x))
  {
    output <- if(names) key else key[-1]
  }
  else if(is.numeric(x))
  {
    output <- key$lysing[match(x,key$id)]
    if(names)
      names(output) <- x
  }
  else
  {
    output <- key$id[match(x,key$lysing)]
    if(names)
      names(output) <- x
  }

  return(output)
}