##' Upload a package to winbuilder
##'
##' @title windoof
##' @param pgk package name
##' @param tarGet directory below which to find the tar.gz files of the package
##' @param recursive whether to search through subdirectories of tarGet
##' @export
windoof <- function(pgk,tarGet=options()$packageHome[[9]],recursive=FALSE){
pgk <- as.character(substitute(pgk))
versions <- list.files(path=file.path(tarGet),pattern=paste(pgk,".*.tar.gz",sep=""),recursive=recursive,ignore.case=1L)
version <- select.list(versions,multiple=FALSE,title="Select package version: ")
cat("\nUsing program ncftp to upload the package:\n")
ncftp.available <- system("ncftp -version")!=32512
if (!ncftp.available)
stop("\nCould not find program: ncftp --version ")
else{
uploadstring <- paste("ncftpput -u anonymous win-builder.r-project.org incoming ",path.expand(file.path(tarGet)),"/",version,sep="")
doit <- select.list(c("yes","no"),
multiple=FALSE,
title=paste("Upload version",
uploadstring,
"\n???"))
if (doit=="yes"){
system(uploadstring)
}
}
}
## ftp://win-builder.r-project.org/
## http://win-builder.r-project.org/
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.