sits.data: Satellite Image Time Series Data Handling

# On load
.onAttach <- function(lib, pkg){
 packageStartupMessage("sits.data - satellite image time series data handling.")
 packageStartupMessage(
        sprintf("Loaded sits data handling v%s.
        See ?sits.data for help, citation(\"sits.data\") for use in publication.
        See demo(package = \"sits.data\") for examples.",
                utils::packageDescription("sits.data")$Version) )
}

.onLoad <- function(lib, pkg) {
    Sys.setenv(R_CONFIG_ACTIVE = "default")
    Sys.setenv(R_CONFIG_FILE = "config.yml")
    # Creates a package environment to store global variables
    sits_config()
}
sits.env <- new.env()
sits.env$model_formula <- "log"

# Include the following global variables in the sits package
utils::globalVariables(c(".", "%>%", ":=", ".SD", ".SDcols", ".N", "V0", "V1",
                         "Index", "from", "value", "variable", "cond",
                         "med", "qt25", "qt75", "cluster_id", "x", "y",
                         "median", "minimum_value", "maximum_value",
                         "scale_factor", "band", "instance", "name", "size",
                         "longitude", "latitude", "label", "cube", "coverage",
                         "service","year", "start_date", "end_date", "type",
                         "time_series", "name", "scale_factor", "missing_value",
                         "original_label", "n_members", "n_members.n", "count",
                         "segr", "frac", "total", "n", "rows.lst", "whit",
                         "blue", "red", "green", "nir", "mir", "swir",
                         "ndvi", "evi", "model_formula", "b_box",
                         "distance", "predicted", "new_values", "sum_area",
                         "area_vec", "area", "band", "bands",
                         "id_sample", "neuron_label", "percentage_s",
                         "id_neuron", "neuron_class",
                         "label_neighbor_neuron", "p_Neighbor", "desc",
                         "percentage_n", "iteration",
                         "samples_label", "label_subgroup", "cluster_name",
                         "index_time", "dup_neuron",
                         "probability", "total_probability", "radius",
                         "som_label","Alig.N", "matches", "original_row",
                         "reference", "cluster", ".data"))
#' @importFrom lubridate %within% %m+%
NULL