submit_cran.R

#Assume httr 0.4
library(httr)
stopifnot(packageVersion("httr") >= "0.4")

#submit a package to CRAN, step 1
submit <- function(name, email, pkg, comment = "Thank you", popup = TRUE){
  stopifnot(file.exists(pkg))
  req1 = httr::POST (
    url = "http://xmpalantir.wu.ac.at/cransubmit/index2.php",
    encode = "multipart",
    body = list(
      pkg_id = "",
      name = name,
      email = email,
      uploaded_file = httr::upload_file(pkg),
      comment = comment,
      upload = "Upload package"
    )
  )
  stop_for_status(req1)
  url1 <- req1$url
  
  #success message
  strerr1 <- substring(regmatches(url1, gregexpr("strErr=[^&]*", url1)), 8)
  message(chartr('+',' ', strerr1))
  pkg_id <- substring(regmatches(url1, gregexpr("pkg_id=[^&]*", url1)), 8)
  
  #Confirm
  req2 <- httr::POST(
    url = "http://xmpalantir.wu.ac.at/cransubmit/index2.php",
    encode = "multipart",
    body = list (
      pkg_id = pkg_id,
      name = name,
      email = email,
      uploaded_file = "",
      comment = comment,
      policy_check = "1/",
      submit = "Submit package"
    )
  )
  stop_for_status(req2)
  url2 <- req2$url
  
  #success message
  strerr2 <- substring(regmatches(url2, gregexpr("strErr=[^&]*", url2)), 8)
  if(nchar(strerr2)) message(strerr2)
  
  #show final page
  if(isTRUE(popup)){
    browseURL(req2$url)
  } else {
    message("The maintainer of this package has been sent an email to confirm the submission.")
  }
}

#Test
#submit("Jeroen Ooms", "jeroen.ooms@stat.ucla.edu", "~/workspace/opencpu_1.4.4.tar.gz")