From cc9704489cbd7c8513343e6a2d5f2ef009473d3f Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Mon, 13 Jul 2020 13:23:31 +0200
Subject: [PATCH] Translated takeLine()

---
 NAMESPACE       |  1 +
 R/greedyMix.R   | 13 -------------
 R/takeLine.R    | 17 +++++++++++++++++
 man/takeLine.Rd | 19 +++++++++++++++++++
 4 files changed, 37 insertions(+), 13 deletions(-)
 create mode 100644 R/takeLine.R
 create mode 100644 man/takeLine.Rd

diff --git a/NAMESPACE b/NAMESPACE
index 81c1201..fac9bb5 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -32,6 +32,7 @@ export(simuloiAlleeli)
 export(size)
 export(strcmp)
 export(suoritaMuutos)
+export(takeLine)
 export(testaaOnkoKunnollinenBapsData)
 export(testaaPop)
 export(times)
diff --git a/R/greedyMix.R b/R/greedyMix.R
index 8ea16e0..928bcc1 100644
--- a/R/greedyMix.R
+++ b/R/greedyMix.R
@@ -1533,19 +1533,6 @@ greedyMix <- function(
 
 # 	%--------------------------------------------------------------------
 
-
-# 	function newline = takeLine(description,width)
-# 	%Returns one line from the description: line ends to the first
-# 	%space after width:th mark.
-# 	newLine = description(1:width);
-# 	n = width+1;
-# 	while ~isspace(description(n)) & n<length(description)
-# 		n = n+1;
-# 	end;
-# 	newline = description(1:n);
-
-# 	%-------------------------------------------------------
-
 # 	function dist2 = laskeOsaDist(inds2, dist, ninds)
 # 	% Muodostaa dist vektorista osavektorin, joka sis�lt�� yksil�iden inds2
 # 	% v�liset et�isyydet. ninds=kaikkien yksil�iden lukum��r?
diff --git a/R/takeLine.R b/R/takeLine.R
new file mode 100644
index 0000000..8e32b80
--- /dev/null
+++ b/R/takeLine.R
@@ -0,0 +1,17 @@
+#' @title Take line
+#' @description Returns one line from the description.
+#' @param description description
+#' @param width width
+#' @return newline
+#' @export
+takeLine <- function(description, width) {
+	# Returns one line from the description: line ends to the first
+	# space after width:th mark.
+	newLine <- description[1:width]
+	n <- width + 1
+	while ((description[n] != " ") & (n < length(description))) {
+		n <- n + 1
+	}
+	newline <- description[1:n]
+	return(newline)
+}
\ No newline at end of file
diff --git a/man/takeLine.Rd b/man/takeLine.Rd
new file mode 100644
index 0000000..8628489
--- /dev/null
+++ b/man/takeLine.Rd
@@ -0,0 +1,19 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/takeLine.R
+\name{takeLine}
+\alias{takeLine}
+\title{Take line}
+\usage{
+takeLine(description, width)
+}
+\arguments{
+\item{description}{description}
+
+\item{width}{width}
+}
+\value{
+newline
+}
+\description{
+Returns one line from the description.
+}