#!/usr/bin/env Rscript

git_version <- tryCatch ({
    readLines (".tarball-version")
}, error = function (cond) {
    "0.0.0.9000"
})
parts <- strsplit (git_version, "-", fixed = TRUE)[[1]]
tag <- parts[1]
commit <- NA
if (length (parts) > 1) {
    commit <- 9000 + as.numeric (parts[2])
}
r_version <- tag
if (!is.na (commit)) {
    r_version <- sprintf ("%s.%d", tag, commit)
}

library ("devtools")
writeLines (c (
    "Package: strats",
    "Type: Package",
    "Title: Semi-supervised Transductive Residual Analysis of Time Series",
    sprintf ("Version: %s", r_version),
    "Author: Vivien Kraus <vivien@planete-kraus.eu>",
    "Maintainer: Vivien Kraus <vivien@planete-kraus.eu>",
    "Description: Implementation of for anomaly detection.",
    "License: Proprietary",
    "LazyData: true"),
    "DESCRIPTION")
use_namespace (roxygen = TRUE)
document ()
load_all ()

check_matrix_product ()
check_gradient ()

build ()