%in% in ui.R and hc and kmeans in server.R