#' Correct a year variable
#' @param year a variable with year information.
get_statayear2 <- function(year){
year1 <- substr(year,1,1)
yearb <- year
ind1 <- which(year1 %in% c(0,3:9) & nchar(year)==4)
yearc1 <- substr(year[ind1],3,4)
yearc2 <- ifelse(as.numeric(yearc1)>17,paste0(19,yearc1),paste0(20,yearc1))
ind2 <- which(nchar(year)==2)
yearc3 <- ifelse(as.numeric(year[ind2])>17,paste0(19,year[ind2]),paste0(20,year[ind2]))
ind3 <- which(year1 %in% (0:9) & nchar(year)==3)
yeard4 <- substr(year[ind3],2,3)
yearc4 <- ifelse(as.numeric(yeard4)>17,paste0(19,yeard4),paste0(20,yeard4))
ind4 <- which(nchar(year)>4)
yeard5 <- substr(year[ind4],nchar(year[ind4])-1,nchar(year[ind4]))
yearc5 <- ifelse(as.numeric(yeard5)>17,paste0(19,yeard5),paste0(20,yeard5))
ind5 <- which(nchar(year)==1)
yearc6 <- paste0(200,year[ind5])
year12 <- substr(year,1,2)
ind6 <- which(nchar(year)==4 & !(year12 %in% c(19,20)))
yeard7 <- substr(year[ind6],nchar(year[ind6])-1,nchar(year[ind6]))
yearc7 <- ifelse(as.numeric(yeard7)>17,paste0(19,yeard7),paste0(20,yeard7))
year_ls <- substr(year,nchar(year)-1,nchar(year))
ind7 <- which(grepl("[[:alpha:]]", year_ls))
yearc8 <- rep("-111",length(year[ind7]))
dat_sr <- data.frame(stri=year[ind1],repl=yearc2)
for (i in 2:7){
ind <- eval(parse(text=paste0("ind",i)))
if (length(ind)>0){
yearc <- eval(parse(text=paste0("yearc",i+1)))
dat_sr <- rbind(dat_sr,data.frame(stri=year[ind],repl=yearc))
}
}
return(dat_sr)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.