The outputs of the cat() are not objects that R can further process. If you want to ask multiple questions and save the answers, try sapply.
test <- data.frame(
x = c("Is Arkansas in the United States?", "Is Arkansas in India?")
)
test$y <- sapply(test$x, ask_chatgpt)