[R] vector splicing

[Sam Steingold]

the following seems to work for numeric but not for times:

parse.vec <- function (vec, parser = as.numeric, vmode = "numeric",
                       na.string = "N/A") {
  bad <- (vec == na.string);
  ret <- vector(mode = vmode, length = length(vec));
  if (some(bad))
    ret[bad] <- NA;
  if (some(!bad))
    ret[!bad] <- parser(vec[!bad]);
  ret;
}

data[[2]] <- parse.vec(data[,2]); # works!

but not with times:

parse.vec(df$Time, vmode = "list", na.string = "<invalid time>",
          parser = function (s) strptime(s,format = "%H:%M:%OS"));
Warning message:
In ret[!bad] <- strptime(vec[!bad], format = "%H:%M:%OS") :
  number of items to replace is not a multiple of replacement length

why?

(just in case:
> length(ret)
[1] 2022
> length(vec)
[1] 2022
> length(bad)
[1] 2022
> all(!bad)
[1] TRUE


-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.3 (Final)
http://mideasttruth.com http://jihadwatch.org http://truepeace.org
http://dhimmi.com http://memri.org http://pmw.org.il http://camera.org
If it has syntax, it isn't user friendly.