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

Fixed behavior of rivinSisaltamienMjonojenLkm

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

13
R/rivinSisaltamienMjonojenLkm.R
View file

@ -1,23 +1,24 @@
#' @title Number of M queues #' @title Number of M queues
#' @param line line number #' @param line line number
#' @return count #' @return count
#' @description Returns the number of queues contained in the line. There must be a space between the queues.
#' @export #' @export
rivinSisaltamienMjonojenLkm <- function(line) { rivinSisaltamienMjonojenLkm <- function(line) {
# Palauttaa line:n sis<69>lt<6C>mien mjonojen lukum<75><6D>r<EFBFBD>n. # Palauttaa line:n sis<69>lt<6C>mien mjonojen lukum<75><6D>r<EFBFBD>n.
# Mjonojen v<>liss?t<>ytyy olla v<>lily<6C>nti. # Mjonojen v<>liss?t<>ytyy olla v<>lily<6C>nti.
count <- 0 count <- 0
pit <- length(line) pit <- nchar(line)
tila <- 0 # 0, jos odotetaan v<>lily<6C>ntej? 1 jos odotetaan muita merkkej? tila <- 0 # 0, jos odotetaan v<>lily<6C>ntej? 1 jos odotetaan muita merkkej?
for (i in seq_len(pit)) { for (i in seq_len(pit)) {
merkki <- line[i] merkki <- substring(line, i, i)
if (merkki == " " & tila == 0) { if (isspace(merkki) & tila == 0) {
# Ei tehd?mit<69><74>n. # Ei tehd?mit<69><74>n.
} else if (merkki == " " & tila == 1) { } else if (isspace(merkki) & tila == 1) {
tila <- 0 tila <- 0
} else if (merkki != " " & tila == 0) { } else if (!isspace(merkki) & tila == 0) {
tila <- 1 tila <- 1
count <- count + 1 count <- count + 1
} else if (merkki != " " & tila == 1) { } else if (!isspace(merkki) & tila == 1) {
# %Ei tehd?mit<69><74>n # %Ei tehd?mit<69><74>n
} }
} }