ourMELONS/R/testaaPop.R

#' @title Test population
#' @description Test a line in the population
#' @param rivi Line
#' @return pal = 1 if the line starts with one of the following
# letter combinations: Pop, pop, POP. In all others cases, pal = 0
#' @export
testaaPop <- function(rivi) {
	# pal=1, mik<69>li rivi alkaa jollain seuraavista
	# kirjainyhdistelmist? Pop, pop, POP. Kaikissa muissa
	# tapauksissa pal=0.

	if (nchar(rivi) < 3) {
		pal <- 0
	} else {
		rivi_start <- substring(rivi, 1, 3)
		pal <- ifelse(rivi_start %in% c('Pop', 'pop', 'POP'), 1, 0)
	}
	return(pal)
}