1. 为什么要批量安装R语言包当你在新的环境下, 安装R语言时,你需要安装很多包,比如tidyverse ,比如data.table ,这里你可以写一个函数,将所有需要的包写进去,然后进行批量安装 2. 程序如下:ipak <- function(pkg){ new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])] if (length(new.pkg)) install.packages(new.pkg, dependencies = TRUE) sapply(pkg, require, character.only = TRUE) } 3. 编程思路将当前已经安装的包读取 判断你的包是否已经安装 如果没有安装, 那就安装 返回安装状态, 是否安装成功
4. 示例代码比如, 这里我要安装如下包, 将其写为对象packages, 然后定义函数ipak批量安装包函数, 最后使用ipk批量安装packages packages=c("tidyverse","data.table","devtools","shiny","shinydashboard", "sommer","agridat","agricolae","desplot") ipak <- function(pkg){ new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])] if (length(new.pkg)) install.packages(new.pkg, dependencies = TRUE) sapply(pkg, require, character.only = TRUE) } ipak(packages) 5. 如何运行代码字数少于300, 不能申请原创,那我就打一些字,然后就可以申请原创了,因为申请原创很重要啊,所以我才打这么多字。感觉可以了,那就开始申请原创吧。
|