Выберите последние n столбцов фрейма данных в R

В вашей инструкции if вы назначаете 0 в s.length, а не проверяете. сделайте это следующим образом:

if(s.length()==0)
//rest of your code

еще одна ошибка - s.charAt(s.length()). Индекс i-го символа в строке равен (i-1), аналогично индексам массива. Таким образом, последний символ строки имеет индекс (s.length()-1). Поэтому замените эту строку кода на s.charAt(s.length()-1).