Nothing
minimally_increment <- function(x) {
UseMethod("minimally_increment")
}
minimally_increment.partial_time <- function(x) {
x_mat <- vctrs::field(x, "pttm_mat")
# increment last available time field
col_tz <- colnames(x_mat) == "tzhour"
last_indx <- which(col(x_mat) == apply(x_mat, 1, Position, f = is.na) - 1)
x_mat[, !col_tz][last_indx] <- x_mat[, !col_tz][last_indx] + 1
vctrs::field(x, "pttm_mat") <- reflow_fields(x_mat)
x
}
minimally_increment.matrix <- function(x) {
# increment last available time field
col_inc <- colnames(x) %in% "inclusive"
col_tz <- colnames(x) == "tzhour"
last_indx <- which(col(x) == apply(x, 1, Position, f = is.na) - 1)
x[, !col_tz & !col_inc][last_indx] <- x[, !col_tz & !col_inc][last_indx] + 1
x[, !col_inc] <- reflow_fields(x[, !col_inc, drop = FALSE])
x
}
time_min <- function() {
as.parttime("0000-01-01T00:00:00.000")
}
time_mid <- function() {
as.parttime("0000-06-15T12:30:30.000")
}
time_max <- function() {
as.parttime("9999-12-31T23:59:59.999")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.