data-raw/instances/make_instances.R

In thomasWeise/jsspInstancesAndResults: A repository with a data set including instances and results from literature for the Job Shop Scheduling Problem (JSSP)

logger("beginning to try to load instance information.");

jssp.instances.dir <- file.path(dir.data.raw, "instances");
stopifnot(file.exists(jssp.instances.dir),
          file.size(jssp.instances.dir) > 0L);

jssp.instances.path <- file.path(jssp.instances.dir, "instances.txt");
stopifnot(file.exists(jssp.instances.path),
          file.size(jssp.instances.path) > 0L);
jssp.instances.path <- normalizePath(jssp.instances.path, mustWork = TRUE);

logger("now loading instances file '", jssp.instances.path, "'.");

jssp.instances <- read.csv(file=jssp.instances.path, stringsAsFactors = FALSE);
stopifnot(is.data.frame(jssp.instances),
          nrow(jssp.instances) > 0L,
          identical(colnames(jssp.instances),
                    c("inst.id",
                    "inst.ref",
                    "inst.jobs",
                    "inst.machines",
                    "inst.opt.bound.lower",
                    "inst.opt.bound.lower.ref")),
          all(!is.na(jssp.instances$inst.jobs)),
          all(jssp.instances$inst.jobs > 0L),
          all(is.finite(jssp.instances$inst.jobs)),
          all(is.integer(jssp.instances$inst.jobs)),
          all(!is.na(jssp.instances$inst.machines)),
          all(jssp.instances$inst.machines > 0L),
          all(is.finite(jssp.instances$inst.machines)),
          all(is.integer(jssp.instances$inst.machines)),
          all(!is.na(jssp.instances$inst.opt.bound.lower)),
          all(jssp.instances$inst.opt.bound.lower > 0L),
          all(is.finite(jssp.instances$inst.opt.bound.lower)),
          all(is.integer(jssp.instances$inst.opt.bound.lower)),
          all(is.character(jssp.instances$inst.id)),
          all(!is.na(jssp.instances$inst.id)),
          all(nchar(jssp.instances$inst.id) > 0),
          all(is.character(jssp.instances$inst.ref)),
          all(!is.na(jssp.instances$inst.ref)),
          all(nchar(jssp.instances$inst.ref) > 0),
          all(is.character(jssp.instances$inst.opt.bound.lower.ref)),
          all(!is.na(jssp.instances$inst.opt.bound.lower.ref)),
          all(nchar(jssp.instances$inst.opt.bound.lower.ref) > 0));

rm("jssp.instances.path");
logger("loaded ", nrow(jssp.instances), " instances.");

jssp.instances.ids <- unname(unlist(jssp.instances$inst.id));
stopifnot(length(unique(jssp.instances.ids)) == nrow(jssp.instances))

jssp.instances <- jssp.instances[order(jssp.instances.ids), ];
rm("jssp.instances.ids");
#jssp.instances$inst.id <- as.factor(unname(unlist(jssp.instances$inst.id)));

.finder <- function(i) {
  stopifnot(!is.na(i));
  n <- (jssp.bibliography$ref.id == i);
  stopifnot(sum(n) == 1L);
  stopifnot(length(which(n)) == 1L);
}
for(i in jssp.instances$inst.ref) {
  .finder(i);
}
for(i in jssp.instances$inst.opt.bound.lower.ref) {
  .finder(i);
}
rm("i");
rm(".finder");

stopifnot(is.data.frame(jssp.instances),
          nrow(jssp.instances) > 0L,
          identical(colnames(jssp.instances),
                    c("inst.id",
                    "inst.ref",
                    "inst.jobs",
                    "inst.machines",
                    "inst.opt.bound.lower",
                    "inst.opt.bound.lower.ref")),
          all(!is.na(jssp.instances$inst.jobs)),
          all(jssp.instances$inst.jobs > 0L),
          all(is.finite(jssp.instances$inst.jobs)),
          all(is.integer(jssp.instances$inst.jobs)),
          all(!is.na(jssp.instances$inst.machines)),
          all(jssp.instances$inst.machines > 0L),
          all(is.finite(jssp.instances$inst.machines)),
          all(is.integer(jssp.instances$inst.machines)),
          all(!is.na(jssp.instances$inst.opt.bound.lower)),
          all(jssp.instances$inst.opt.bound.lower > 0L),
          all(is.finite(jssp.instances$inst.opt.bound.lower)),
          all(is.integer(jssp.instances$inst.opt.bound.lower)),
          all(is.character(jssp.instances$inst.id)),
          all(!is.na(jssp.instances$inst.id)),
          all(nchar(jssp.instances$inst.id) > 0L),
          all(is.character(jssp.instances$inst.ref)),
          all(!is.na(jssp.instances$inst.ref)),
          all(nchar(jssp.instances$inst.ref) > 0),
          all(is.character(jssp.instances$inst.opt.bound.lower.ref)),
          all(!is.na(jssp.instances$inst.opt.bound.lower.ref)),
          all(nchar(jssp.instances$inst.opt.bound.lower.ref) > 0));

logger("finished loading jssp instances");