From fc1b947ca9402799f9a45b7c69c1d2eb1e8b88f4 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Wed, 24 Jun 2020 16:10:14 +0200
Subject: [PATCH] Translated lueNimi

---
 NAMESPACE      |  1 +
 R/lueNimi.R    | 17 +++++++++++++++++
 man/lueNimi.Rd | 17 +++++++++++++++++
 3 files changed, 35 insertions(+)
 create mode 100644 R/lueNimi.R
 create mode 100644 man/lueNimi.Rd

diff --git a/NAMESPACE b/NAMESPACE
index f6edaf8..ef1906f 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -14,6 +14,7 @@ export(isfield)
 export(laskeMuutokset4)
 export(learn_simple_partition)
 export(lueGenePopData)
+export(lueNimi)
 export(noIndex)
 export(ownNum2Str)
 export(poistaLiianPienet)
diff --git a/R/lueNimi.R b/R/lueNimi.R
new file mode 100644
index 0000000..a5bbb3f
--- /dev/null
+++ b/R/lueNimi.R
@@ -0,0 +1,17 @@
+#' @title Read the Name
+#' @description Reads the line name
+#' @param line line
+#' @return nimi
+#' @export
+lueNimi <- function(line) {
+	# Palauttaa line:n alusta sen osan, joka on ennen pilkkua.
+	n <- 1
+	merkki <- line[n]
+	nimi <- ''
+	while (merkki != ',') {
+		nimi <- c(nimi, merkki)
+		n <- n + 1
+		merkki <- line[n]
+	}
+	return(nimi)
+}
\ No newline at end of file
diff --git a/man/lueNimi.Rd b/man/lueNimi.Rd
new file mode 100644
index 0000000..74cd665
--- /dev/null
+++ b/man/lueNimi.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/lueNimi.R
+\name{lueNimi}
+\alias{lueNimi}
+\title{Read the Name}
+\usage{
+lueNimi(line)
+}
+\arguments{
+\item{line}{line}
+}
+\value{
+nimi
+}
+\description{
+Reads the line name
+}