46 lines
1.2 KiB
R
46 lines
1.2 KiB
R
#' ===================================================
|
|
#' Required R package installation.
|
|
#' Author: Lele Shu <shulele@lzb.ac.cn>
|
|
#' Website: www.shud.xyz
|
|
#' Date: 2023-05-27
|
|
#' Copyright: MIT-Licence
|
|
#' ===================================================
|
|
|
|
libs=c('raster', 'sp', 'rgdal', 'rgeos', 'rasterVis', 'rgl',
|
|
'gstat', 'zoo', 'xts', 'hydroGOF', 'hydroTSM',
|
|
'ggplot2', 'lattice', 'reshape2',
|
|
'abind', 'spam', 'fields',
|
|
'doParallel', 'foreach', 'doMC',
|
|
'RTriangle', 'geometry',
|
|
'Rcpp', 'sf',
|
|
'deldir', 'proj4', 'lubridate', 'interp', 'ncdf4', 'GGally',
|
|
'blogdown', 'roxygen2',
|
|
'mapproj', 'coord_map', 'akima', 'graticule',
|
|
'magick', 'pdftools'
|
|
)
|
|
# libs=c('lavaan', 'multcompView', 'pander', 'psych', 'pwr', 'rmdpartials', 'ufs', 'kableExtra') # ROSETTA
|
|
|
|
fun.inst <- function(libs){
|
|
nx=length(libs)
|
|
i=1
|
|
for(i in 1:nx){
|
|
x=libs[i]
|
|
message(i, '/', nx, '\t', x)
|
|
if(!require(x, character.only = TRUE, )){
|
|
message('Installing ', x)
|
|
install.packages(x)
|
|
}else{
|
|
message('Existing ', x)
|
|
}
|
|
}
|
|
}
|
|
fun.inst(libs)
|
|
|
|
|
|
if(!require(devtools)){
|
|
install.packages("devtools")
|
|
}
|
|
|
|
devtools::install_github("shud-system/rshud")
|
|
|