Здесь я проверяю, что введенное название города в нижнем регистре, как и имя переменной, и я get
значение, хранящееся в этой переменной.Я вставляю это вместе с оригинальной строкой.
chicago <- 30
fun <- function(){
a <- readline("What city?\n")
paste(a, get(tolower(a)), sep = " ")
}
Запуск выглядит примерно так:
fun()
What city?
Chicago
[1] "Chicago 30"