has_keypress_support
keypress()
## Not run: # x <- keypress() # cat("You pressed key", x, "\n") # ## End(Not run)
Run the code above in your browser using DataLab