Determine object is has class unsupervised_fit
is_unsupervised_fit(x)A single logical indicating input has class "unsupervised_fit"
model_fit <- list(letters)
is_unsupervised_fit(model_fit)
#> [1] FALSE
model_fit <- new_unsupervised_fit(model_fit)
is_unsupervised_fit(model_fit)
#> [1] TRUE