R中的qrcode_gen

问题描述

我是 R 中的函数 qrcode_gen 来生成一个二维码。我的目标是使用 sweave 生成​​一个带有二维码的乳胶文件。但我无法调整它的大小。

qrcode_gen("YourString",softLimitFlag = FALSE,wColor = "White",bColor = "black")

有人知道如何调整函数 qrcode_gen 返回的图像大小吗？

谢谢，

解决方法

如果您无论如何要生成乳胶文件，您可以让乳胶做二维码：

$string1 = '[{()[He9.?*]{}}]';
/*
[{()[]}]
[{()}]
[{}]
[]

*/
var_dump(open_closed($string1));//true

$string2 = 'abc[({})][({)]99';
/*
[({})][({)]
[()][({)]
[][({)]
[({)]

*/
var_dump(open_closed($string2));//false

,

如果由于任何原因您需要在 R-Sweave 中在运行时生成字符串，您可以将 QR_Code 保存在 PDF 文件中并将 PDF 添加到乳胶中。

<<message=FALSE,warning= FALSE,results='asis',echo=FALSE>>=

library(ggplot2)

inputString <- paste0("YourString",variable)

ggsave(paste0("QrCode.pdf"),plot = qrcode_gen(inputString,softLimitFlag = FALSE,wColor = "White",bColor = "black"),width = 21,height = 13,units = "cm",dpi = 1700,device = "pdf")
@

\includegraphics[width=5cm]{QrCode.pdf}