Для этой ошибки, если вы используете Windows 7 или Windows Server 2008 R2, проблема может заключаться в том, что вам нужно установить исправление для Microsoft.
См. эту ссылку: https://support.microsoft.com/en-us/kb/2731284
Я публикую это как ответ на свой вопрос, хотя я не собираюсь принимать это, потому что я не полностью делаю то, что хочу. Я бы все же предпочел не сканировать 16 qr-кодов для каждого столбца результатов, но это все, что я могу придумать прямо сейчас.
Я генерирую QR-код для каждого результата в столбце «result.one» в виде jpeg, а затем вставляю jpeg в новый столбец. В конце я собираюсь проанализировать каждый столбец "result.X" и вставить этот вывод как новую таблицу для каждого результата. Если у кого-то есть лучший подход, у меня все на слух!
Использование r-markdown
---
title: "QR Code in Column"
author: "dorton"
date: "2019/01/20"
output: html_document
---
library(qrcode)
library(knitr)
#Generate the data frame
test <- LETTERS[1:10]
result.one <- round(rnorm(1:10),2)
df <- data.frame(test, result.one, stringsAsFactors = FALSE)
df$result.one <- as.character(df$result.one) # qrcode_gen requires a character
#Generate a qrcode for each test in df$test
#Requires defining an output folder and writing a new jpeg for each qrcode (not ideal)
for(i in 1:length(df$test)){
mypath <- file.path("path/name", "qrs", paste(df$test[i], ".jpg", sep = ""))
jpeg(file=mypath)
sapply(df$result.one, function(x) qrcode_gen(df$result.one[i]))
dev.off()
}
df$QRCodes <- paste0('![]','(path/name/', df$test, '.jpg)', '{width=0.5in}') #making the width 0.5 inches so it's readable
kable(df)