library(chattr)
chattr_use("test", stream = FALSE)
chattr("hello")
# View history
ch_history()
# Save history to a file
chat_file <- tempfile()
saveRDS(ch_history(), chat_file)
# Reset history
ch_history(list())
# Re-load history
ch_history(readRDS(chat_file))
Run the code above in your browser using DataLab