qr <- qr_code("HELLO WORLD")
plot(qr)
# Test the QR code with the opencv package
if (requireNamespace("opencv")) {
png("test.png")
plot(qr)
dev.off()
opencv::ocv_qr_detect(opencv::ocv_read('test.png'))
unlink("test.png")
}
Run the code above in your browser using DataLab