R/DoPx.R

In LarsLap/DoPxR: Create px-files with PXJob

# Hello, DoPxR!
#
# You can learn more about package authoring with RStudio at:
#
#   http://r-pkgs.had.co.nz/
#
# Some useful keyboard shortcuts for package authoring:
#
#   Install Package:           'Ctrl + Shift + B'
#   Check Package:             'Ctrl + Shift + E'
#   Test Package:              'Ctrl + Shift + T'

write.table_with_header <- function(x, file, header, ...){
  cat(header, '\n',  file = file)
  write.table(x, file, append = T, row.names = FALSE, ...)
}

pxjob = system.file(package = "DoPxR","PxJob64.exe")

# Do_Px
pxjob <- function(i,o,...){
  system(paste(pxjob, " px" , "in=",i, " out=",o,sep=""))
}

pxjob_add <- function(i,m,...){
  system(paste(pxjob, " px" , "in=",i, " meta=", m, " -a", sep=""))
}

# pxjob_add <- function(i,m,...){
#   system(paste('"C:/Users/Lars_/OneDrive/Dokumenter/R/win-library/4.0/DoPxR/PxJob64.exe" px ', "in=",i, " meta=", m, " -a", sep=""))
# }