Как насчет того, чтобы импортировать имя пользователя и пароль из файла, внешнего к сценарию? Тот путь, даже если бы кто-то овладел сценарием, они автоматически не получили бы пароль.
Вот один из способов, используя закрытие (в смысле языка программирования), то есть сохранение переменной count в окружающем окружении, доступном только вашей функции:
make.f <- function() {
count <- 0
f <- function(x) {
count <<- count + 1
return( list(mean=mean(x), count=count) )
}
return( f )
}
f1 <- make.f()
result <- f1(1:10)
print(result$count, result$mean)
result <- f1(1:10)
print(result$count, result$mean)
f2 <- make.f()
result <- f2(1:10)
print(result$count, result$mean)
result <- f2(1:10)
print(result$count, result$mean)