From 4b25f4375d6be57fda652cdd758a8c98afaa6442 Mon Sep 17 00:00:00 2001
From: Pariksheet Nanda <pariksheet.nanda@uconn.edu>
Date: Mon, 15 Aug 2016 19:06:32 -0400
Subject: [PATCH] ENH: Update RStudio

---
 cgi-updater-payload.sh | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/cgi-updater-payload.sh b/cgi-updater-payload.sh
index b8153ad..06f6ff2 100755
--- a/cgi-updater-payload.sh
+++ b/cgi-updater-payload.sh
@@ -48,6 +48,36 @@ biocLite(c(${pkgs:3}))
 EOF
 }
 
+rstudio_url() {
+    python - <<EOF
+import urllib2
+
+from lxml import etree
+
+# Provide a header to avoid HTTP 403 Forbidden.
+headers = {'User-Agent': 'Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.11 (KHTML, like Gecko) Chrome/23.0.1271.64 Safari/537.11'}
+request = urllib2.Request("https://www.rstudio.com/products/rstudio/download2/", headers=headers)
+response = urllib2.urlopen(request)
+html = response.read()
+
+root = etree.HTML(html)
+urls = root.xpath('.//table[@class="downloads"][1]/tbody/tr/td/a/@href')
+url = next(url for url in urls if url.endswith('amd64.deb'))
+print(url)
+EOF
+}
+
+rstudio_install() {
+    url=$(rstudio_url)
+    pkg=$(basename $url)
+    ver_new=$(echo $pkg | awk -vFS=- '{print $2}')
+    ver_old=$(dpkg-query --showformat='${Version}' --show rstudio) || ver_old=
+    if [[ ! $ver_new == $ver_old ]]; then
+	wget -qc $url
+	dpkg -i $pkg
+    fi
+}
+
 main () {
     ubuntu_update
     ubuntu_install_r_cran
@@ -60,6 +90,8 @@ main () {
     export -f r_install_packages
     su cgi_user -c "bash -c \"r_install_packages ${r_pkgs[*]}\""
     unset r_install_packages
+
+    rstudio_install
 }
 
 main