From 2c3d40c9a719502c4e105a4422b9650634cb6954 Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Tue, 28 Jul 2020 12:50:54 +0200 Subject: [PATCH] Fixed behavior of lueNimi and selvitaDigitFormat --- R/lueNimi.R | 8 ++++---- R/selvitaDigitFormat.R | 13 ++++++------- 2 files changed, 10 insertions(+), 11 deletions(-) diff --git a/R/lueNimi.R b/R/lueNimi.R index a5bbb3f..7e0811d 100644 --- a/R/lueNimi.R +++ b/R/lueNimi.R @@ -1,17 +1,17 @@ #' @title Read the Name -#' @description Reads the line name +#' @description Returns the part of the line from the beginning that is before the comma. Useful for returning the name of a GenePop area #' @param line line #' @return nimi #' @export lueNimi <- function(line) { # Palauttaa line:n alusta sen osan, joka on ennen pilkkua. n <- 1 - merkki <- line[n] + merkki <- substring(line, n, n) nimi <- '' while (merkki != ',') { nimi <- c(nimi, merkki) n <- n + 1 - merkki <- line[n] + merkki <- substring(line, n, n) } - return(nimi) + return(paste(nimi, collapse="")) } \ No newline at end of file diff --git a/R/selvitaDigitFormat.R b/R/selvitaDigitFormat.R index 4492ea8..32af592 100644 --- a/R/selvitaDigitFormat.R +++ b/R/selvitaDigitFormat.R @@ -7,23 +7,22 @@ selvitaDigitFormat <- function(line) { # Genepop-formaatissa olevasta datasta. funktio selvitt�� # rivin muodon perusteella, ovatko datan alleelit annettu # 2 vai 3 numeron avulla. - n <- 1 - merkki <- line[n] + merkki <- substring(line, n, n) while (merkki != ',') { n <- n + 1 - merkki <- line[n] + merkki <- substring(line, n, n) } - while (!any(merkki == '0123456789')) { + while (!any(merkki %in% as.character(0:9))) { n <- n + 1 - merkki <- line[n] + merkki <- substring(line, n, n) } numeroja <- 0 - while (any(merkki == '0123456789')) { + while (any(merkki %in% as.character(0:9))) { numeroja <- numeroja + 1 n <- n + 1 - merkki <- line[n] + merkki <- substring(line, n, n) } df <- numeroja / 2