library(qtbase)
library(qtpaint)
library(cranvas)
key_press <- function(layer, event) {
print(match_key(c("A", "F", "PageUp", "1"), event))
}
s <- qscene()
r <- qlayer(s, keyPressFun = key_press)
qplotView(scene = s)
Run the code above in your browser using DataLab