R Under development (unstable) (2026-02-11 r89406 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(ribiosArg)
Loading required package: ribiosUtils

Attaching package: 'ribiosArg'

The following objects are masked from 'package:ribiosUtils':

    isDebugging, isIntDebugging, scriptInit, setDebug, unsetDebug

> 
> myval <- parseNumVec(c("2", "3", "5.5"), expLen=3, failVal=c(3,4,5))
> stopifnot(identical(myval, c(2, 3,5.5)))
> 
> myval2 <- parseNumVec(c("2,3,5.5"), expLen=3, failVal=c(3,4,5))
> stopifnot(identical(myval, c(2, 3,5.5)))
> 
> myval3 <- parseNumVec(c("2,3,", "4"), expLen=3, failVal=c(3,4,5))
> stopifnot(identical(myval3, c(2, 3,4)))
> 
> myval4 <- parseNumVec(c("2,3,", "5.5"), expLen=4, failVal=c(3,4,5))
> stopifnot(identical(myval4, c(3,4,5)))
> 
> myval5 <- parseNumVec(c("2", "3", "5.5", "7"), expLen=NULL, failVal=c(3,4,5))
> stopifnot(identical(myval5, c(2,3,5.5,7)))
> 
> myval6 <- parseNumVec(c("2", "3", "5.5", "HSV"), expLen=4, failVal=c(3,4,5,5))
> stopifnot(identical(myval6, c(3,4,5,5)))
> 
> proc.time()
   user  system elapsed 
   0.17    0.17    0.28