Неисправность, использующая функцию ls() внутри функции substr()

Question

Мне нужен список или вектор всех имен объектов с последним символом, обрезанным. Например:

# if i have two objects (ob1 and other1) 
ls() 
##"ob1" "other1" 
# I want "ob" "other" 

Я пытаюсь использовать substr() в цикле с ls(), но я получаю вектор пустых символов («»). Игнорируя цикл на данный момент, что мне нужно сделать, чтобы получить ls()[1] для правильной обработки внутри substr()?

ob1 <– NULL 
substr(ls()[1],1,length(ls()[1])-1) 
##[1] "" 

substr(paste(ls()[1]),1,length(ls()[1])-1) 
##[1] "" 

substr(toString(ls()[1]),1,length(ls()[1])-1) 
##[1] "" 

substr(as.character(ls()[1]),1,length(ls()[1])-1) 
##[1] "" 

Answer 1

Вы используете length() вместо nchar(). Измените это, и с вами все будет в порядке.

Answer 2

Вы можете использовать функцию sub, чтобы удалить последний символ из строки.

> x <- c("ob1", "other1") 
> sub(".$", "", x) 
[1] "ob" "other"