swh:1:snp:cb3ee08893d9ebea95d32b41026209106231a62e
Tip revision: 1ee50c471e33b2b4cf30fe1dc261a69fe2a3f3e8 authored by Sibylle Sturtz on 14 November 2005, 00:00:00 UTC
version 1.0-1
version 1.0-1
Tip revision: 1ee50c4
bugs.update.settings.R
"bugs.update.settings" <-
function (n.burnin, bugs.directory){
char.burnin <- as.character(n.burnin)
file.copy(file.path(bugs.directory, "System/Rsrc/Registry.odc"),
file.path(bugs.directory, "System/Rsrc/Registry_Rsave.odc"),
overwrite = TRUE)
registry <- readBin(file.path(bugs.directory, "System/Rsrc/Registry.odc"),
"character", 400, size = 1, endian = "little")
info <- registry[regexpr("Int", registry, fixed = TRUE, useBytes = TRUE) > 0]
while(regexpr("\r", info) > 0){
newline <- regexpr("\r", info)
info <- substring(info, newline + 1)
line <- substring(info, 1, regexpr("\r", info) - 1)
if(regexpr("AdaptivePhase", line) > 0){
numpos <- regexpr("Int", line, fixed = TRUE, useBytes = TRUE) + 4
num <- substring(line, numpos)
if (as.numeric(num) > n.burnin){
blanks <- rep(" ", nchar(num, type = "chars") - nchar(char.burnin, type = "chars"))
num.new <- paste(paste(blanks, collapse = ""), char.burnin, sep = "")
line.new <- sub(num, num.new, line)
registry <- sub(line, line.new, registry)
}
}
}
writeBin (registry,
file.path(bugs.directory, "System/Rsrc/Registry.odc"), endian = "little")
}