23 lines
No EOL
728 B
R
23 lines
No EOL
728 B
R
#' @title Read the 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) {
|
|
# ==========================================================================
|
|
# Validation
|
|
# ==========================================================================
|
|
if (!grepl(",", line)) {
|
|
stop("There are no commas in this line")
|
|
}
|
|
# Palauttaa line:n alusta sen osan, joka on ennen pilkkua.
|
|
n <- 1
|
|
merkki <- substring(line, n, n)
|
|
nimi <- ''
|
|
while (merkki != ',') {
|
|
nimi <- c(nimi, merkki)
|
|
n <- n + 1
|
|
merkki <- substring(line, n, n)
|
|
}
|
|
return(paste(nimi, collapse=""))
|
|
} |