load_emb.R

load_embedding <- function(file_path){
    # load full file
    lines <- readLines(file_path)
 
    # create new environment
    embeddings_env <- new.env(hash = TRUE, parent = emptyenv())
 
    # this function is used to convert vectors to unit vectors
    # by dividing their components by vector length
    normalize_vector <- function(a){
        a/sqrt(sum(a**2))
    }
 
    # iterate through the whole file line by line
    for (i in 1:length(lines)) {
        line <- lines[[i]]
        values <- strsplit(line, " ")[[1]] 
        label <- values[[1]]
        embeddings_env[[label]] <- normalize_vector(as.double(values[-1]))
    }
 
    embeddings_env
}