#' Generate transition file
#'
#' This function generates and writes a file into the working directory with all the indicators avaliable in a dataset, its units and an empty column called "Default Indicator Name" to match model indicators to default indicators and writes. After updating the file it can then be used as an input to the transition function to replace model indicator names with default indicator names.
#' @param d_file Path to the data file
#' @export
gen_tr_file<-function(d_file){
data<-read.csv(d_file,header=T,check.names=F,stringsAsFactors=F)
indicators<-unique(data$`Model Indicator Name`)
units<-data$`Unit of Entry`[match(indicators,data$`Model Indicator Name`)]
default_name<-rep("",length(indicators))
note<-rep("",length(indicators))
tr<-data.frame(indicators,units,default_name,note)
colnames(tr)<-c("Model Indicator Name","Unit of Entry","Default Indicator Name","Note")
write.csv(tr,gsub(".csv","_TR.csv",d_file),row.names=F,na="")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.