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