From 92028bb31b61a71bcf63aea74fa88c6d7a211de7 Mon Sep 17 00:00:00 2001
From: Greg Lin <glin@rstudio.com>
Date: Fri, 23 Aug 2019 16:04:16 -0500
Subject: [PATCH] Set user agent during build process

---
 builder/build.sh            | 6 ++++++
 builder/package.centos-7    | 6 ------
 builder/package.debian-9    | 6 ------
 builder/package.opensuse-15 | 6 ------
 builder/package.opensuse-42 | 6 ------
 builder/package.ubuntu-1604 | 6 ------
 builder/package.ubuntu-1804 | 6 ------
 7 files changed, 6 insertions(+), 36 deletions(-)

diff --git a/builder/build.sh b/builder/build.sh
index 56d1754..47aa609 100755
--- a/builder/build.sh
+++ b/builder/build.sh
@@ -93,6 +93,12 @@ compile_r() {
   make clean
   make
   make install
+
+  # Preserve the default HTTP user agent for R 3.6.0 and later
+  cat <<'EOF' >> /opt/R/${1}/lib/R/etc/Rprofile.site
+# Set default HTTP user agent
+options(HTTPUserAgent = sprintf("R/%s R (%s)", getRversion(), paste(getRversion(), R.version$platform, R.version$arch, R.version$os)))
+EOF
 }
 
 # check for packager script
diff --git a/builder/package.centos-7 b/builder/package.centos-7
index eca0028..76b2ee2 100644
--- a/builder/package.centos-7
+++ b/builder/package.centos-7
@@ -15,12 +15,6 @@ if [ -d /opt/R/${R_VERSION} ]; then
 fi
 EOF
 
-# Set default HTTP user agent for R 3.6+
-cat <<'EOF' >> /opt/R/${R_VERSION}/lib/R/etc/Rprofile.site
-# Set default HTTP user agent
-options(HTTPUserAgent = sprintf("R/%s R (%s)", getRversion(), paste(getRversion(), R.version$platform, R.version$arch, R.version$os)))
-EOF
-
 fpm \
   -s dir \
   -t rpm \
diff --git a/builder/package.debian-9 b/builder/package.debian-9
index 6cfbaeb..6780327 100644
--- a/builder/package.debian-9
+++ b/builder/package.debian-9
@@ -2,12 +2,6 @@ if [[ ! -d /tmp/output/debian-9 ]]; then
   mkdir -p /tmp/output/debian-9
 fi
 
-# Set default HTTP user agent for R 3.6+
-cat <<'EOF' >> /opt/R/${R_VERSION}/lib/R/etc/Rprofile.site
-# Set default HTTP user agent
-options(HTTPUserAgent = sprintf("R/%s R (%s)", getRversion(), paste(getRversion(), R.version$platform, R.version$arch, R.version$os)))
-EOF
-
 fpm \
   -s dir \
   -t deb \
diff --git a/builder/package.opensuse-15 b/builder/package.opensuse-15
index 80e60b7..58e14ff 100644
--- a/builder/package.opensuse-15
+++ b/builder/package.opensuse-15
@@ -15,12 +15,6 @@ if [ -d /opt/R/${R_VERSION} ]; then
 fi
 EOF
 
-# Set default HTTP user agent for R 3.6+
-cat <<'EOF' >> /opt/R/${R_VERSION}/lib/R/etc/Rprofile.site
-# Set default HTTP user agent
-options(HTTPUserAgent = sprintf("R/%s R (%s)", getRversion(), paste(getRversion(), R.version$platform, R.version$arch, R.version$os)))
-EOF
-
 fpm \
   -s dir \
   -t rpm \
diff --git a/builder/package.opensuse-42 b/builder/package.opensuse-42
index b56e015..4cc1837 100644
--- a/builder/package.opensuse-42
+++ b/builder/package.opensuse-42
@@ -15,12 +15,6 @@ if [ -d /opt/R/${R_VERSION} ]; then
 fi
 EOF
 
-# Set default HTTP user agent for R 3.6+
-cat <<'EOF' >> /opt/R/${R_VERSION}/lib/R/etc/Rprofile.site
-# Set default HTTP user agent
-options(HTTPUserAgent = sprintf("R/%s R (%s)", getRversion(), paste(getRversion(), R.version$platform, R.version$arch, R.version$os)))
-EOF
-
 fpm \
   -s dir \
   -t rpm \
diff --git a/builder/package.ubuntu-1604 b/builder/package.ubuntu-1604
index 9d18fd0..33aa081 100644
--- a/builder/package.ubuntu-1604
+++ b/builder/package.ubuntu-1604
@@ -2,12 +2,6 @@ if [[ ! -d /tmp/output/ubuntu-1604 ]]; then
   mkdir -p /tmp/output/ubuntu-1604
 fi
 
-# Set default HTTP user agent for R 3.6+
-cat <<'EOF' >> /opt/R/${R_VERSION}/lib/R/etc/Rprofile.site
-# Set default HTTP user agent
-options(HTTPUserAgent = sprintf("R/%s R (%s)", getRversion(), paste(getRversion(), R.version$platform, R.version$arch, R.version$os)))
-EOF
-
 fpm \
   -s dir \
   -t deb \
diff --git a/builder/package.ubuntu-1804 b/builder/package.ubuntu-1804
index 435abf0..2b3f7c4 100644
--- a/builder/package.ubuntu-1804
+++ b/builder/package.ubuntu-1804
@@ -2,12 +2,6 @@ if [[ ! -d /tmp/output/ubuntu-1804 ]]; then
   mkdir -p /tmp/output/ubuntu-1804
 fi
 
-# Set default HTTP user agent for R 3.6+
-cat <<'EOF' >> /opt/R/${R_VERSION}/lib/R/etc/Rprofile.site
-# Set default HTTP user agent
-options(HTTPUserAgent = sprintf("R/%s R (%s)", getRversion(), paste(getRversion(), R.version$platform, R.version$arch, R.version$os)))
-EOF
-
 fpm \
   -s dir \
   -t deb \