take_screenshot <- function() {

  xwid <-
    system("xwininfo -root | sed -n 2p | grep -oP 0x[a-f0-9]+",
           intern = TRUE)

  magick::image_write(magick::image_read(paste0("x:", xwid)),
                      path = format(Sys.time(), "ss-%Y%m%d-%H%M%S.png"),
                      format = "png")

}