在闪亮的应用程序中安装所需的软件包

Question

我有一个闪亮的应用程序，我希望每个人都能够使用runGitHub运行，唯一的前提是安装闪亮的软件包。

为了在第一次运行程序时将所有所需的软件包安装并加载到该人的计算机中，我在服务器中的代码，R开头：

if (!require("pacman")) install.packages("pacman")
pacman::p_load("maptools","dplyr","data.table","reshape2","ggplot2","plyr","rgdal","rgeos","shinyjs","scales","DT","readxl")

library(maptools)
library(dplyr)
library(data.table)
library(reshape2)
library(ggplot2)
library(plyr)
library(rgdal)
library(rgeos)
library(shinyjs)
library(scales)
library(DT)
library(readxl) 

不过，我刚刚在某人的pc上测试了它，结果显示了以下错误：

Error in library(shinyjs) : there is no package called ‘shinyjs’

手动安装shinyjs之后，显示了以下内容：

Warning: Error in library: there is no package called ‘maptools’
Stack trace (innermost first):
46: library
45: eval [helper.R#1]
44: eval
43: withVisible
42: source
 3: runApp
 2: runUrl
 1: runGitHub
Error in library(maptools) : there is no package called ‘maptools’

诸若此类。这是我的第一个闪亮的应用程序，所以我不知道我应该如何实现这一点。可以通过运行以下命令来访问我的完整代码：

runGitHub("Mapas_BBVA_municipios","IArchondo",display.mode="showcase") 

Answer 1

packages可能附带一些dependencies，因此所有具有依赖关系的包都需要安装。要解决每个新用户的问题，您可以像这样执行检查和安装(如果必要的话)。

#list of packages required
list.of.packages <- c("pacman","maptools","dplyr","data.table","reshape2","ggplot2","plyr","rgdal","rgeos","shinyjs","scales","DT","readxl")

#checking missing packages from list
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]

#install missing ones
if(length(new.packages)) install.packages(new.packages, dependencies = TRUE)

希望这能有所帮助。

Answer 2

这对我来说很管用：

list_of_packages = c("ggplot2","pacman")

lapply(list_of_packages, 
       function(x) if(!require(x,character.only = TRUE)) install.packages(x))