if (FALSE) { # interactive()
proj <- sync_project("wss://quarto-hub.com/ws", proj_id, token = sync_token())
proj # prints the file tree
doc <- proj$open("/charlie/index.qmd") # open a file over the connection
doc$edit(at = "text", ext = ".qmd") # edit it live
proj$close() # disconnect when finished
}
Run the code above in your browser using DataLab