Data_generation.R

setwd("/Users/featherlite569/Documents/NMNH/wasp_app/")
library(XML)
library(jsonlite)
hao_terms <- read.csv(file = "./HAO_terms.csv")
hao_terms <- hao_terms[!duplicated(hao_terms[,1]),]
hao_terms[,1] <- capitalize(hao_terms[,1],1)
hao_terms$ID <- substr(hao_terms$URI,32,42)
names(hao_terms) <- c("title","definition","URI","Preferred.Term","ID")
str(hao_terms)
write(toJSON(hao_terms,pretty = T),file = "hao_terms.json")