在R中创建受密码保护的.pdf文件

Question

我有一个RShiny应用程序，用户可以在其中创建带有某些参数的图，并将其保存在服务器的本地。我可以使用下面的示例代码来实现这一点。

my_data <- mtcars
head(my_data, 6)

pdf("C:/Users/Siddharth.A/Desktop/plot.pdf")

plot(x = my_data$wt, y = my_data$mpg, pch = 16, frame = FALSE, xlab = "wt", ylab = "mpg", col = "#2E9FDF")

dev.off()

但是，我找不到创建具有密码保护功能的.pdf文件的方法。任何帮助或指导表示赞赏！