data-raw/luo_eurostat_statfi_key.R

In pttry/almpsfin: What the Package Does (One Line, Title Case)

# luokat lmp_name_fin-muuttujassa tulevat TEM:ltä saadusta avaimesta.

eurostat_statfi_key <- tibble::tribble(
      ~LMP_TYPE,   ~code_statfi,    ~lmp_name_fin,                                      ~palveluluokka,         ~palveluluokka_name,
      "21_FI6",         "0",            "Työvoimakoulutus",                             "muu",                  "Muut palvelut",    # "tyovoimakoulutus",   # Normaali koulutus
      "21_FI6",         "1",            "Työvoimakoulutus",                             "muu",                  "Muut palvelut",    # "tyovoimakoulutus",   # Valtionosuuskoulutus(VOS)
      "7_FI11",         "65",           "Starttiraha",                                  "tyollistaminen",       "Työllistäminen",
      "7_FI11",         "62",           "Starttiraha",                                  "tyollistaminen",       "Työllistäminen",
      "7_FI55",         "61",           "Starttiraha ei-työttömille",                   "tyollistaminen",       "Työllistäminen",
      "24_FI7",         "51",           "Oppisopimuskoulutus työttömille",              "tyollistaminen",       "Työllistäminen",
      "24_FI7",         "55",           "Oppisopimuskoulutus työttömille",              "tyollistaminen",       "Työllistäminen",
      "24_FI7",         "56",           "Oppisopimuskoulutus työttömille",              "tyollistaminen",       "Työllistäminen",
      "24_FI7",         "58",           "Oppisopimuskoulutus työttömille",              "tyollistaminen",       "Työllistäminen",
      "24_FI7",         "68",           "Oppisopimuskoulutus työttömille",              "tyollistaminen",       "Työllistäminen",
      "24_FI7",         "87",           "Oppisopimuskoulutus työttömille",              "tyollistaminen",       "Työllistäminen",
      "24_FI7",         "88",           "Oppisopimuskoulutus työttömille",              "tyollistaminen",       "Työllistäminen",
      "24_FI7",         "89",           "Oppisopimuskoulutus työttömille",              "tyollistaminen",       "Työllistäminen",
      "41_FI10",        "80",           "Palkkatuki yksityiselle",                      "tyollistaminen",       "Työllistäminen",
      "41_FI10",        "81",           "Palkkatuki yksityiselle",                      "tyollistaminen",       "Työllistäminen",
      "41_FI10",        "6T",           "Palkkatuki yksityiselle",                      "tyollistaminen",       "Työllistäminen",
      "41_FI10",        "6V",           "Palkkatuki yksityiselle",                      "tyollistaminen",       "Työllistäminen",
      "41_FI10",        "60",           "Palkkatuki yksityiselle",                      "tyollistaminen",       "Työllistäminen",
      "41_FI10",        "69",           "Palkkatuki yksityiselle",                      "tyollistaminen",       "Työllistäminen",
      "6_FI9",          "54",           "Palkkatuki kunnalle",                          "tyollistaminen",       "Työllistäminen",
      "6_FI9",          "57",           "Palkkatuki kunnalle",                          "tyollistaminen",       "Työllistäminen",
      "6_FI9",          "5T",           "Palkkatuki kunnalle",                          "tyollistaminen",       "Työllistäminen",
      "6_FI9",          "5V",           "Palkkatuki kunnalle",                          "tyollistaminen",       "Työllistäminen",
      "6_FI9",          "53",           "Palkkatuki kunnalle",                          "tyollistaminen",       "Työllistäminen",
      "6_FI9",          "50",           "Palkkatuki kunnalle",                          "tyollistaminen",       "Työllistäminen",
      "6_FI8",          "40",           "Valtiolle työllistäminen",                     "tyollistaminen",       "Työllistäminen",
      "6_FI8",          "41",           "Valtiolle työllistäminen",                     "tyollistaminen",       "Työllistäminen",
      "11_FI59",        "3",            "Työnhakuvalmennus",                            "valmennus",            "Valmennukset",
      "11_FI60",        "5",            "Uravalmennus",                                 "valmennus",            "Valmennukset",
      "11_FI61",        "4",            "Työhönvalmennus",                              "valmennus",            "Valmennukset",
      "21_FI63",        "36",           "Koulutuskokeilu",                              "kokeilu",              "Kokeilut ja harjoittelu",
      "22_FI62",        "20",           "Työkokeilu",                                   "kokeilu",              "Kokeilut ja harjoittelu",
      "22_FI62",        "21",           "Työkokeilu",                                   "kokeilu",              "Kokeilut ja harjoittelu",
      "22_FI66",        "22",           "Rekrytointikokeilu",                           "kokeilu",              "Kokeilut ja harjoittelu",
      "6_FI36",         "05",           "Kuntouttava työtoiminta",                      "muu",                  "Muut palvelut",
      "21_FI17",        "06",           "Omaehtoinen opiskelu työttömyysetuudella",     "muu",                  "Muut palvelut",
      "43_FI16",        "02",           "Työnvuorottelu",                               "muu",                  "Muut palvelut",
      "22_FI12",        "71",           "Työelämävalmennus",                            "valmennus",            "Valmennukset",
      "22_FI12",        "64",           "Työelämävalmennus",                            "valmennus",            "Valmennukset",
      "22_FI15",        "70",           "Työharjoittelu",                               "kokeilu",              "Kokeilut ja harjoittelu",    # tyollistaminen
      "43_FI13",        "73",           "Osa-aikatyöllistetty",                         "tyollistaminen",       "Työllistäminen"

)

data("LMP_TYPE_name_key")
eurostat_statfi_key <- left_join(eurostat_statfi_key, LMP_TYPE_name_key, by = "LMP_TYPE")
usethis::use_data(eurostat_statfi_key, overwrite = TRUE)