1
2idesc_get_built <- function(self, private) {
3  built <- unname(self$get("Built"))
4  if (is.na(built)) stop("No ", sQuote('Built'), " field found")
5  built <- as.list(strsplit(built, "; ")[[1L]])
6  if (length(built) != 4L) {
7    stop(sQuote('Built'), " field is corrupted")
8  }
9  names(built) <- c("R", "Platform", "Date", "OStype")
10  built[["R"]] <- R_system_version(sub("^R ([0-9.]+)", "\\1", built[["R"]]))
11  built
12}
13