Какой аналог register_next_step_handler для R?

Создаю чат-бот в телеграмме на R, который будет выполнять некие математические операции с функцией, введенной пользователем.

Никак не могу понять как сохранить ответ пользователя в переменную. Пыталась сохранить message$text в фильтре сообщений, но Rstudio ругается:

Error in if (handler$check_update(update)) { : argument is not interpretable as logical

Вот код фильтров и хендлеры:

MessageFilters$func <- BaseFilter(function(message) {
  # проверяем, встречается ли в тексте сообщения нужные слова
  grepl(x           = message$text,
        pattern     = 'x',
        ignore.case = TRUE)
  users_function <- message$text
}
)

MessageFilters$params <- BaseFilter(function(message) {
  grepl(x           = message$text,
        pattern     = ',',
        ignore.case = TRUE)
  
  res <- strsplit(message$text, ",")
  
  a <- as.numeric(res[[1]][1])
  b <- as.numeric(res[[1]][2])
  n <- as.numeric(res[[1]][3])
}
)

menu_txt_h <- MessageHandler(parameters, filters = MessageFilters$func)
parameters_txt_h <- MessageHandler(choise, filters = MessageFilters$params)


Ответы (0 шт):