#' Build Dictionary From Text Or File
#'
#' This function extracts keys/values from file or text and return key/values in data.frame
#'
#' @param inText The input text, or, a filename.
#' @param readfile If TRUE, inText is a filename to read from.
#' @param formatKey If TRUE, the key is formatted to <key> instead of key.
#'
#' @return This function returns a data.frame with keys and values.
#' @export
buildDictionary <- function(inText, readfile=TRUE, formatKey=TRUE){
if(readfile==TRUE){
## read in file
store <- readLines(inText, -1, skipNul = TRUE)
## get rid of empty lines
store <- store[nchar(store)>0]
} else{
store <- inText
}
## start response data.frame
new.df <- data.frame(key="", val="", stringsAsFactors=F)
## for each line...
for(i in 1:length(store)){
beginning <- extractKey(store[i], formatKey)
end <- extractValue(store[i])
temp.df <- data.frame(key=beginning, val=end, stringsAsFactors=F)
new.df <- rbind(new.df, temp.df)
}
## return, clean up the first empty line.'
new.df <- new.df[-c(1),]
## rename rows for consistency
rownames(new.df) <- 1:nrow(new.df)
return(new.df)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.