devxy/r-builds
Watch
2
0
Fork
You've already forked r-builds
 0
Code Issues 1 Pull requests Releases Activity

Add OS identifier to the default HTTP user agent

Browse source
This commit is contained in:
Greg Lin 2019-09-04 15:39:49 -05:00
commit a541837927
1 changed files with 15 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

21
builder/build.sh
View file

@ -94,13 +94,22 @@ compile_r() {
make make
make install make install
# Preserve the default HTTP user agent for R 3.6.0 and later # Add OS identifier to the default HTTP user agent
if _version_is_greater_than ${1} 3.6; then cat <<EOF >> /opt/R/${1}/lib/R/etc/Rprofile.site
cat <<'EOF' >> /opt/R/${1}/lib/R/etc/Rprofile.site ## Set the default HTTP user agent
# Set default HTTP user agent local({
options(HTTPUserAgent = sprintf("R/%s R (%s)", getRversion(), paste(getRversion(), R.version$platform, R.version$arch, R.version$os))) os_identifier <- if (file.exists("/etc/os-release")) {
os <- readLines("/etc/os-release")
id <- gsub('^ID=|"', "", grep("^ID=", os, value = TRUE))
version <- gsub('^VERSION_ID=|"', "", grep("^VERSION_ID=", os, value = TRUE))
sprintf("%s-%s", id, version)
} else {
"${OS_IDENTIFIER}"
}
options(HTTPUserAgent = sprintf("R/%s (%s) R (%s)", getRversion(), os_identifier,
paste(getRversion(), R.version\$platform, R.version\$arch, R.version\$os)))
})
EOF EOF
fi
} }
# check for packager script # check for packager script