# NOT RUN {
if(interactive()){
# See https://cloud.ibm.com/apidocs/assistant
conection <- init(api_key, workspace)
conection[["text"]]
chat1 <- chat("Ignacio", conection, username, password, workspace)
chat1[["text"]]
chat2 <- chat("I would like flower suggestions", chat1, username, password, workspace)
chat2[["text"]]
}
# }
Run the code above in your browser using DataLab