remove_manual_desigs: Filter out designations we used to remove manually

In ERICNorthEast/ERIC_Data_Proc: Functions for data processing and validation

Filter out designations we used to remove manually

Description

Filter out designations we used to remove manually

Usage

remove_manual_desigs(pandn_data, config_vals)

Arguments

pandn_data	data to process
config_vals	list of config values

Examples

config_keys <- c("FEP_DESIG","WNIO1_DESIG","WNIO2_DESIG","WNIO81_DESIG","WNIO82_DESIG","WNIO5_DESIG","WALES_DESIG")
FEP_DESIG <- "FEP-001"
WNIO1_DESIG <- "W(NI)O-Sch1_part1"
WNIO2_DESIG <- "W(NI)O-Sch1_part2"
WNIO81_DESIG <- "W(NI)O-Sch8_part1"
WNIO82_DESIG <- "W(NI)O-Sch8_part2"
WNIO5_DESIG <- "W(NI)O-Sch5"
WALES_DESIG <- "Wales_NERC_S.42"
config_values <- list(FEP_DESIG,WNIO1_DESIG,WNIO2_DESIG,WNIO81_DESIG,WNIO82_DESIG,WNIO5_DESIG,WALES_DESIG)
config_pairs <- list()                     # Create empty list
for(i in 1:length(config_keys)) {              # Add key/value pairs in for-loop
config_pairs[config_keys[i]] <- config_values[i]
}
a <- c('','BirdsDir-A2.2')
b <- c('','')
c <- c('','')
d <- c('insect - butterfly','bird')
e <- c('Pieris rapae','Turdus merula')
f <- c('Small White','Blackbird')
g <- c('Mike Jeffries','Alnwick Wildlife Group')
h <- c('Morpeth Town','Morpeth Town')
i <- c('04/09/2010','04/09/2010')
j <- c('NZ18X','NZ18X')
k <- c('Butterfly Conservation','Alnwick Wildlife Group')
l <- c('Butterfly Conservation','Alnwick Wildlife Group')
m <- c('2 Count','1 Count')
n <- c('Considered Correct','Considered Correct')
o <- c(419000,419000)
p <- c(585000,585000)
q <- c(1000,1000)
r <- c('layer','layer')
s <- c('path','path')
df <- data.frame(a,b,c,d,e,f,a,g,h,h,i,j,k,l,m,n,o,p,q,r,s,b)
names(df) <- c('All.Design', 'Wildlife..', 'Wildlife_1', 'Taxon.grou', 'Taxon.Lati', 'Taxon.Comm', 'Obs.Commen', 'Sample.Rec', 'Sample.Loc', 'Sample.L_1', 'Sample.Dat', 'Sample.Spa', 'Survey.Run', 'Survey.Nam', 'Obs.Abunda', 'Determinat', 'Central_Ea', 'Central_No', 'Buffer', 'layer', 'path','Info')

data <- remove_manual_desigs(df,config_pairs)

ERICNorthEast/ERIC_Data_Proc documentation built on Dec. 5, 2023, 12:19 p.m.