[r] How can I interrupt a running code in R with a keyboard command?