saveVerb = function(verbFile){
## Update statistics
written = FALSE
while(!written){
test = try(write.csv(verbFile[, .(category, word, active,
attempts, successes)],
file = paste0(name,"Verb.csv"),
row.names = FALSE))
if(!is(test, "try-error"))
written = TRUE
else
readline("File not written. Is it open?")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.