max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Fixed behavior of testaaPop

Browse source
This commit is contained in:
Waldir Leoncio 2020-07-28 10:39:07 +02:00
parent d5637fe428
commit 7ce0110928
1 changed files with 5 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
R/testaaPop.R
View file

@ -1,27 +1,19 @@
#' @title Test population #' @title Test population
#' @description Test a line in the population #' @description Test a line in the population
#' @param rivi Line #' @param rivi Line
#' @return pal #' @return pal = 1 if the line starts with one of the following
# letter combinations: Pop, pop, POP. In all others cases, pal = 0
#' @export #' @export
testaaPop <- function(rivi) { testaaPop <- function(rivi) {
# pal=1, mik<69>li rivi alkaa jollain seuraavista # pal=1, mik<69>li rivi alkaa jollain seuraavista
# kirjainyhdistelmist? Pop, pop, POP. Kaikissa muissa # kirjainyhdistelmist? Pop, pop, POP. Kaikissa muissa
# tapauksissa pal=0. # tapauksissa pal=0.
if (length(rivi) < 3) { if (nchar(rivi) < 3) {
pal <- 0 pal <- 0
return(pal)
}
if (
all(rivi[1:3] == 'Pop') |
all(rivi[1:3] == 'pop') |
all(rivi(1:3)=='POP')
) {
pal <- 1
return(pal)
} else { } else {
pal <- 0; rivi_start <- substring(rivi, 1, 3)
return(pal) pal <- ifelse(rivi_start %in% c('Pop', 'pop', 'POP'), 1, 0)
} }
return(pal) return(pal)
} }