R/oh.logout.R

In jeroenooms/Ohmage: R Client for Ohmage 2 server

Defines functions oh.logout

Documented in oh.logout

#' Logout from an ohmage session
#' @export
oh.logout <- function(){
	if(is.null(getOption("TOKEN"))){
		stop("Not logged in.");
	}
	options(TOKEN = NULL);
	options(SERVERURL = NULL);
	options(ohmage_username = NULL)
	message("Logged out.\n")
}