R/print.R

In ppssphysics/QualtricsInR: Wrapper for Qualtrics v3 API references

#' @export
print.quatrics_token <- function(x, ...){
  t <- format(
    token$time + token$expires_in,
    "%d %b %y %H:%M"
  )
  cat(
    crayon::blue(cli::symbol$info),
    "QualtricsInR token expiring at", t, ..., "\n"
  )
}