Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

64 lines (45 sloc) 1.475 kb
#!/usr/bin/env Rscript
options(warn=-1)
R_HOME <- Sys.getenv('R_HOME')
R_HOME <- ifelse(length(R_HOME) == 0, R.home(), R_HOME)
bindir <- R.home("bin")
bin_script <- file.path(bindir,'pgfsweave')
x <- file.remove(bin_script)
#rel_script <- "../exec/pgfsweave-script.R"
abs_script <- system.file(package='pgfSweave', 'exec','pgfsweave-script.R')
script <- try(readLines(abs_script),silent=T)
if(class(script) == "try-error"){
success <- FALSE
}else{
win_shebang <- paste("#!",file.path(bindir,'Rscript'),sep='')
win_script <- c( win_shebang, script)
success <- FALSE
if( .Platform$OS.type == 'windows' ){
tf <- tempfile()
writeLines( win_script, tf )
if(file.copy(tf,bin_script))
success <- TRUE
}else{
if(file.symlink(abs_script,bin_script))
success <- TRUE
}
}
if(success){
cat('\n***********************\n')
cat( 'Installing custom script in:\n\n')
cat( R.home(),'/bin/\n\n',sep='')
cat( 'For usage instructions:\n\n')
cat( 'R CMD pgfsweave --help\n')
if(.Platform$OS.type == 'windows'){
cat( '\nNote for windows users:\n')
cat( ' You must have Rtools installed and have\n')
cat( ' ',R.home(),'/bin in your PATH.\n',sep='')
}
cat('***********************\n\n')
}else{
cat('\n***********************\n')
cat('Failed to install custom pgfsweave script:\n')
cat(' Thats ok! You can manually install it later.\n')
cat('***********************\n\n')
}
#R_HOME=`Rscript -e "cat(R.home())"`
Jump to Line
Something went wrong with that request. Please try again.