(Acest articol a fost publicat pentru prima dată pe R – TomazTsqlși cu amabilitate a contribuit la R-bloggeri). (Puteți raporta problema legată de conținutul acestei pagini aici)
Doriți să vă distribuiți conținutul pe R-bloggeri? dați clic aici dacă aveți un blog, sau aici dacă nu aveți.
Ai vrut vreodată să ai un ceas pe perete sau la birou, asta nu este binar. Dar este ceasul QR-Code 
Ei bine, acum o poți avea.
Această funcție R inutilă generează un nou cod QR pentru fiecare perioadă dată și indică ora. Rulați această funcție:
library(qrcode)
while (Sys.time()+1 > Sys.time()){
n_o_w <- paste0("Current time is ",as.character(format(Sys.time(), "%X")))
print(n_o_w)
qr_code(n_o_w, ecl = "M" ) |>
plot()
Sys.sleep(10)
}
Cea mai bună parte ar fi să obțineți un ecran mic și un raspberry-pi și să afișați acest lucru pe ecran. Sau creați-vă raportul Power BI favorit cu elementul R și copiați, inserați acest cod și setați să reîmprospăteze raportul în perioada dată.
Și codurile QRC din ceas sunt următoarele mărci de timp:
(1) "Current time is 18:39:42" (1) "Current time is 18:39:43" (1) "Current time is 18:39:44" (1) "Current time is 18:39:45" (1) "Current time is 18:39:47" (1) "Current time is 18:39:48" (1) "Current time is 18:39:49" (1) "Current time is 18:39:50" (1) "Current time is 18:39:51" (1) "Current time is 18:39:52"
Cod suplimentar pentru crearea animației
# creating animation
library(gganimate)
getwd()
setwd("/Users/tomazkastrun/Documents/tomaztk_github/Useless_R_functions/figures")
for (i in 1:10){
n_o_w <- paste0("Current time is ",as.character(format(Sys.time(), "%X")))
print(n_o_w)
qr <- qr_code(n_o_w, ecl = "M" )
filename <- paste0("QRCode", i, ".png")
png(filename)
plot(qr)
dev.off()
Sys.sleep(1)
}
library(magick)
files <- c("QRCode1.png", "QRCode2.png", "QRCode3.png", "QRCode4.png", "QRCode5.png", "QRCode6.png", "QRCode7.png", "QRCode8.png", "QRCode9.png", "QRCode10.png")
images <- image_read(files)
animation <- image_animate(images, fps = 1)
image_write(animation, "QRCode_animation.gif")
Continuați cu codarea R și rămâneți sănătoși!
