From 2f809d01df29b58c9eb781f4881d0f38faae5eed Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Tue, 28 Jul 2020 15:35:17 +0200
Subject: [PATCH] Improved validation

---
 R/lueNimi.R | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/R/lueNimi.R b/R/lueNimi.R
index 7e0811d..377e791 100644
--- a/R/lueNimi.R
+++ b/R/lueNimi.R
@@ -4,6 +4,12 @@
 #' @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)