# NOT RUN {
Session <- NewBasexClient(user = <username>, password = "<password>")
print(Execute(Session, "info")$info)
query_txt <- "for $i in 1 to 2 return <xml>Text { $i }</xml>"
query_obj <- Query(Session, query_txt)
print(Execute(query_obj))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab