R/is.tst.R

In AdamElderfield/tst_package:

#' Check if \code{x} is an tst object.
#' 
#' @param x an object to be tested.
#' @return TRUE if x is an object of the class sfc and FALSE otherwise.
#' 
#' @export
#' 
#' @examples
#' data( models )
#' is.tst( sim )

is.tst <- function(x) inherits(x,"tst")