From ce3c3b764526015bd8b0f112fcf87252ca004dca Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Tue, 28 Jul 2020 10:44:10 +0200 Subject: [PATCH] Fixed behavior of rivinSisaltamienMjonojenLkm --- R/rivinSisaltamienMjonojenLkm.R | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/R/rivinSisaltamienMjonojenLkm.R b/R/rivinSisaltamienMjonojenLkm.R index 2e8888f..24abaeb 100644 --- a/R/rivinSisaltamienMjonojenLkm.R +++ b/R/rivinSisaltamienMjonojenLkm.R @@ -1,23 +1,24 @@ #' @title Number of M queues #' @param line line number #' @return count +#' @description Returns the number of queues contained in the line. There must be a space between the queues. #' @export rivinSisaltamienMjonojenLkm <- function(line) { # Palauttaa line:n sis�lt�mien mjonojen lukum��r�n. # Mjonojen v�liss?t�ytyy olla v�lily�nti. count <- 0 - pit <- length(line) + pit <- nchar(line) tila <- 0 # 0, jos odotetaan v�lily�ntej? 1 jos odotetaan muita merkkej? for (i in seq_len(pit)) { - merkki <- line[i] - if (merkki == " " & tila == 0) { + merkki <- substring(line, i, i) + if (isspace(merkki) & tila == 0) { # Ei tehd?mit��n. - } else if (merkki == " " & tila == 1) { + } else if (isspace(merkki) & tila == 1) { tila <- 0 - } else if (merkki != " " & tila == 0) { + } else if (!isspace(merkki) & tila == 0) { tila <- 1 count <- count + 1 - } else if (merkki != " " & tila == 1) { + } else if (!isspace(merkki) & tila == 1) { # %Ei tehd?mit��n } }