R/oin_methods.R

In sweidnumbr: Handling of Swedish Identity Numbers

#' @export
print.oin <- function (x,...) 
{
  print(as.character(x),...)
  cat("Organizational identity number(s)")
}

#' @export
`[.oin` <- create_s3_method("[")

#' @export
rep.oin <- create_s3_method("rep")

#' @export
`[<-.oin` <- function(x, ..., value){
  value <- as.oin(value)
  NextMethod()
}

#' @export
`[<-.oin` <- function(x, ..., value){
  value <- as.oin(value)
  NextMethod()
}

#' @export
c.oin <- function(..., recursive = FALSE){
  args <- list(...)
  if (!length(args)) return(as.oin(character()))
  as.oin(unlist(lapply(args, as.character)))
}