How to use ranger() for classification?

Question

I\'d like to make a classification tree with ranger but I keep getting regression trees

this is my code

n_features <- length(setdiff(names(train_set