R/cxxfunction.copy.R

In miceadds: Some Additional Multiple Imputation Functions, Especially for 'mice'

## File Name: cxxfunction.copy.R
## File Version: 1.071


cxxfunction.copy <- function( cppfct, name )
{
    require_namespace('inline')
    g1 <- inline::getDynLib(cppfct)
    cppname <- gsub( '\\.dll', '\\.cpp',  g1[['path']] )
    h1 <- readLines( cppname )
    tempname <- g1[['name']]
    h1 <- gsub( tempname, name, h1 )
    h1 <- c( paste0( '//  Code created: ', Sys.time() ), '', h1 )
    name1 <- paste0( tolower(name), '.cpp' )
    writeLines( h1, name1 )
    crlrem( filename1=name1, filename2=name1 )
}