R/lookup_vri_bec.R

In bcgov/BCForestGroundSample: BC forest ground sample compilation

lookup_vri_bec <- function(){
  lookuptable <- data.table(projectID = c("0000","0011","001Y","0021","002Y","0030","0031","0032",
                                          "003Y","0051","005Y","0071","0072","007Y","0081","0082",
                                          "0091","0092","009Y","0101","0102","0111","0112","0113",
                                          "0114","011M","011R","0121","0131","0132","013Y","0141",
                                          "0142","0143","014Y","0151","0161","0171","0172","017Y",
                                          "0191","0201","0202","0203","020Y","0211","0221","0222",
                                          "0223","022M","022P","022R","0231","0232","0241","0242",
                                          "024B","024C","024D","024S","024Y","0251","0252","025Y",
                                          "0261","0262","026M","026Y","0271","0272","027Y","0291",
                                          "0292","029A","029E","029M","0301","0302","0303","0304",
                                          "030Y","0331","0332","0371","037A","0401","0402","0403",
                                          "0411","0461","0471","1111","3011","3031","3051","3052",
                                          "3061","3081","3151","3181","3191","3231","3232","3233",
                                          "3251","3252","3253","3254","325M","332P","3391","3431",
                                          "3432","3433","3434","3471","4561","4571","4701","4721",
                                          "4722","4741","4742","4743","474A","4761","4771","4772",
                                          "477M","477P","4791","4792","5901","BFP1","CAR1","CFP1",
                                          "CFP2","CFP3","CMI1","CMI2","CMI3","CMI4","CMI5","CMI6",
                                          "DAR1","DAR2","DBO1","DCK1","DDC1","DDC2","DDC3","DDCA",
                                          "DDCB","DDCX","DDCY","DDCZ","DEV1","DEV2","DEV3","DEV4",
                                          "DEV5","DEV6","DEV9","DJA1","DKA1","DLL1","DME1","DMEM",
                                          "DMH1","DMH2","DMHA","DMHM","DPG1","DQUE","DSC1","DSC2",
                                          "DVA1","DVA2","INT1","INT2","KAM1","KMHY","KOL1","LGM1",
                                          "LGM2","LGM3","LGM4","LGMA","LGMB","LGMC","LGMD","LGMW",
                                          "LVI1","MMF","MOOS","NCAI","PEN1","PP30","ROM1","TEST",
                                          "TOL3","TST1","TST2","TST4","UBC1","VIL1","VILY","WPVT","YW01"),
                            BEC = c("SBS","ICH","ICH","IDF","IDF","IDF","SBS","SBS","SBS","IDF",
                                    "IDF","ICH","IDF","IDF","BWBS","BWBS","MS","IDF","IDF","CWH",
                                    "CWH","IDF","IDF","IDF","IDF","IDF","IDF","SBS","ICH","ICH",
                                    "ICH","SBS","SBS","SBS","SBS","IDF","SBS","ESSF","ESSF","ESSF",
                                    "CWH","SBS","SBS","SBS","SBS","CWH","ICH","ICH","ICH","ICH","ICH",
                                    "ICH","IDF","IDF","SBS","SBS","SBS","SBS","SBS","SBS","SBS","CWH",
                                    "CWH","CWH","SBS","SBS","SBPS","SBS","ICH","ICH","ICH","SBPS","IDF",
                                    "SBPS","IDF","SBPS","CWH","CWH","CWH","CWH","CWH","CWH","CWH","CWH",
                                    "CWH","BWBS","BWBS","BWBS","BWBS","CWH","CWH","CWH","CWH","ESSF",
                                    "SBS","SBS","CWH","ICH","MS","SBS","CWH","ESSF","ICH","ICH","SBS",
                                    "SBS","SBS","SBS","SBS","MS","ICH","CWH","CWH","CWH","CWH","CWH",
                                    "CWH","CWH","CWH","MS","IDF","SBS","BWBS","SBS","SBS","SBS","SBS",
                                    "ESSF","SBS","SBS","ICH","ICH","MS","ESSF","SBPS","BWBS","BWBS",
                                    "BWBS","SBPS","IDF","ICH","SBS","SBS","CWH","ESSF","ICH","MS","CWH",
                                    "BWBS","BWBS","ESSF","ESSF","ESSF","BWBS","BWBS","ESSF","SBPS","IDF",
                                    "ICH","SBS","SBS","CWH","CWH","ESSF","IDF","IDF","IDF","IDF","IDF",
                                    "IDF","IDF","IDF","SBS","SBS","CWH","CWH","ESSF","ESSF","ICH","ESSF",
                                    "IDF","IDF","IDF","IDF","IDF","IDF","IDF","IDF","IDF","IDF","IDF",
                                    "IDF","SBPS","SBS","SBS","CWH","IDF","IDF","IDF","SBS","IDF","IDF",
                                    "IDF","SBS","CWH","CWH","CWH","IDF","SBS"))
  return(lookuptable)
}