здесь есть способ сделать это
varFactor <- factor(letters[1:15])
varFactor <- varFactor[1:5]
varFactor <- varFactor[drop=T]
Почему вы вообще расширяете AppCompat, если вам нужен обычный класс? Создайте нормальный класс и создайте его экземпляр в своей деятельности. Что именно вы пытаетесь сделать в этом классе, чтобы он не мог быть методом в вашей Деятельности?
Объединенный клиент определения местоположения может быть создан где угодно, вызвав
fusedLocationClient = LocationServices.getFusedLocationProviderClient(this);