Спасибо всем за прекрасное руководство. После этого поста и этого поста я смог придумать этот ответ. Обратите внимание, чтобы это работало, вам нужно присвоить эти значения .GlobaEnv
, используя <<-
.
formals
, возвращающие имена и значения функции ввода. Здесь я покажу, как изменить значения по умолчанию этих различных функций
# This will run on starup, detect your device,
# and then change different function default values.
.onLoad <- function(libname, pkgname){
# First detect what the system is
# If it is not on windows change default values
# of function that require changes.
systemType <- Sys.info()[1]
if( systemType != "Windows" ){
formals(tcd)$info <<- F
formals(tcd)$bcex <<- 0.5
windows <<- cairoDevice::Cairo
formals(windows)$pointsize <<- 7
formals(PeakFunc7)$bcex <<- 1.5
formals(RDView)$wh <<- 11
formals(RDView)$hh <<- 6
}
}