R/makesyn.R

In Chris1221/GOldilocks: Gene Ontology Label Discernment and Identification

#' Construct synonym matrix for internal or external use
#'
#' @param return Return value (T) or stout (F). Defaults to T.
#'
#' @export

# NOTE: this isnt incorporated yet... look at issue #8

make.syn <- function(return = FALSE) {

	# c is continue, i is number of synononyms
	c <- TRUE; i <- 1 # set up initials
	syn <- list()

	#enter into loop
	while(c){ #while continue is still true
		syn[[i]] <- as.character(readline(prompt = paste0("Enter the word you would like to add a synonym too: ")))

		# check for breaks
		if(is.na(syn[[i]]) || is.null(syn[[i]])) {

			#stop if null or na
			stop("Incorrect input, please enter a character string.")
		} else if(syn[[i]] == "stop" || syn[[i]] == "Stop" || syn[[i]] == "-9" || syn[[i]] == ""){
			#stop if user directed stop
			syn[[i]] <- NULL
			break

		}

		# enter into synonym loop, this adds synonyms as elemetns of the list at syn[[i]]
		cc <- TRUE; j <- 1
		while(cc){

			syn2 <- as.character(readline(prompt = paste0("Please enter synonym ", j, " for ", syn[[i]][1], ":")))

			#check for breaks, else append to synonyms
			if(syn2 == "stop" || syn2 == "Stop" || syn2 == "exit" || syn2 == "-9" || syn2 == "next"){
				cc <- FALSE
			} else {

				syn[[i]] <- c(syn[[i]], syn2)

			}

			j <- j + 1

		}

		i = i+1
	}

	if(return){
		return(syn)
	} else if(!return){

		.return <- as.character(readline(prompt = "Would you like to save your synonyms to a global object? (y/n): ")) # ask for assignment, make this a default later

		if(.return == "y" || .return == "yes" || .return == "Y" || .return == "YES"){
			name <- as.character(readline(prompt = "What would you like your variable to be called (defaults to syn): "))

			# make default
			if(is.na(name) || is.null(name) || name == ""){
				name <- "syn"
			}

			# asign to global env
			return(syn)

		} else if(.return == "n" || .return == "no" || .return == "N" || .return == "NO"){
			cat("This is your output. You can copy paste and make this an object anywhere.\n\n")
			dput(syn) #so user can copy paste
			message("Thanks for using mineR!")
		}

	}
}