R/to_from_tibble.R

In christophsax/tsbox: Class-Agnostic Time Series

register_class("tbl", "tbl_df")

# to ---------------------------------------------------------------------------

#' Convert to Class
#' @noRd
ts_tbl_dts <- function(x) {
  stopifnot(requireNamespace("tibble"))
  tibble::as_tibble(as.data.frame(ts_data.table(x)))
}

#' Convert to Class
#' @noRd
as.tbl_df <- function(x) {
  stopifnot(requireNamespace("tibble"))
  tibble::as_tibble(x)
}

# from -------------------------------------------------------------------------

# not needed, uses ts_dts.data.frame


# main converter ---------------------------------------------------------------

#' @name ts_ts
#' @export
ts_tbl <- function(x) {
  check_ts_boxable(x)
  if (relevant_class(x) == "tbl") {
    return(x)
  }
  ts_tbl_dts(ts_dts(x))
}