max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Improved validation

Browse source
This commit is contained in:
Waldir Leoncio 2020-07-28 15:35:17 +02:00
parent 88fc203c3d
commit 2f809d01df
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
R/lueNimi.R
View file

@ -4,6 +4,12 @@
#' @return nimi #' @return nimi
#' @export #' @export
lueNimi <- function(line) { 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. # Palauttaa line:n alusta sen osan, joka on ennen pilkkua.
n <- 1 n <- 1
merkki <- substring(line, n, n) merkki <- substring(line, n, n)