Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Today’s puzzle takes us to the south of England, and it looks to me like an obfuscated QR code. Not only is this hinted at in the title, with Q and R in upper case, but the binary starts with a string of seven 1s. That’s a great heuristic for spotting this kind of QR-obfuscation.

I’m using RStudio, so displaying an image on the screen is a doddle:

library(magrittr)
library(stringr)
"1111111001001010101111111 1000001000111100001000001 1011101011101100101011101 1011101001110101101011101 1011101000100101101011101 1000001001000100001000001 1111111010101010101111111 0000000011101011100000000 1110111110111000111000100 1010010000110111001101011 1101111011001010100010101 0001000110010101000010011 0101111110010010011110000 0101010011001101111101100 1011111100001010101101111 0110100010010101010110001 1001111011011010111111011 0000000011011101100011010 1111111010010111101011011 1000001011010101100011000 1011101010010000111110011 1011101000011101001111010 1011101010010011111110101 1000001011010010001110010 1111111011011000010101111" %>%
str_replace_all(" ", "") %>%
strsplit("") %>%
unlist() %>%
as.numeric() %>%
matrix(., ncol=sqrt(length(.))) %>%
image(axes=FALSE, col=c("#ffffff", "#000000"))

That prints an output to the Plots window in RStudio:

Scanning the QR code with my phone reveals the coordinates; easy peasy!