76

I'm developing a package in R. I have a bunch of functions, some of them need some global variables. How do I manage global variables in packages?

I've read something about environment, but I do not understand how it will work, of if this even is the way to go about the things.

2

6 Answers 6

79

You can use package local variables through an environment. These variables will be available to multiple functions in the package, but not (easily) accessible to the user and will not interfere with the users workspace. A quick and simple example is:

pkg.env <- new.env()

pkg.env$cur.val <- 0
pkg.env$times.changed <- 0

inc <- function(by=1) {
    pkg.env$times.changed <- pkg.env$times.changed + 1
    pkg.env$cur.val <- pkg.env$cur.val + by
    pkg.env$cur.val
}

dec <- function(by=1) {
    pkg.env$times.changed <- pkg.env$times.changed + 1
    pkg.env$cur.val <- pkg.env$cur.val - by
    pkg.env$cur.val
}

cur <- function(){
    cat('the current value is', pkg.env$cur.val, 'and it has been changed', 
        pkg.env$times.changed, 'times\n')
}

inc()
inc()
inc(5)
dec()
dec(2)
inc()
cur()
12
  • 28
    This is a useful practice, to which I would add that, as a safety measure when creating environments as variable containers, one should generally set the parent environment to emptyenv(), to protect against accidentally picking up values higher up in the search path: thus new.env(parent = emptyenv()), instead of just new.env().
    – egnha
    Oct 4, 2016 at 10:26
  • 6
    Another addendum - you may need to do assign('key', value, pkg.env) instead of pkg.env$key <- value in recent versions of R, because pkg.env will usually be a locked environment. Apr 18, 2019 at 15:15
  • 1
    It seems like every time the package is sourced a new environment (pkg.env) gets created. This might increase the memory footprint if "required(pkg)" is executed multiple times. Is there anyway to avoid it?
    – dabsingh
    Apr 28, 2019 at 2:32
  • 1
    @dabsingh, I have not looked through the source code of require and everything that it does. But the help page for require says that it will not reload a namespace that is already loaded (middle of first paragraph under details). So, I don't think that a new environment will be created each time.
    – Greg Snow
    Apr 29, 2019 at 15:44
  • thanks @GregSnow, haven't realized so far that one can have an open script in the package :) this was an illumination for me! Jun 2, 2019 at 1:25
21

You could set an option, eg

options("mypkg-myval"=3)
1+getOption("mypkg-myval")
[1] 4
4
  • 2
    Where exactly will this be stored?
    – bskard
    Sep 26, 2012 at 11:04
  • @Rimbaud In a pairlist called .Options located in the base package.
    – James
    Sep 26, 2012 at 11:17
  • This is stored in a global options list for the R session in which the package is loaded. See ?options. Sep 26, 2012 at 11:18
  • I would say this is not typically a good practice since options in R can be edited anywhere by anybody -- it's hard to know for sure that one of your downstream dependencies didn't edit the value between one execution and the next; or even harder for several of your downstream dependencies to interoperate without interfering with the other's modification of the option. There are certainly use cases for this approach but heavy caution is warranted IMO Sep 7, 2021 at 18:39
17

In general global variables are evil. The underlying principle why they are evil is that you want to minimize the interconnections in your package. These interconnections often cause functions to have side-effects, i.e. it depends not only on the input arguments what the outcome is, but also on the value of some global variable. Especially when the number of functions grows, this can be hard to get right and hell to debug.

For global variables in R see this SO post.

Edit in response to your comment: An alternative could be to just pass around the needed information to the functions that need it. You could create a new object which contains this info:

token_information = list(token1 = "087091287129387",
                         token2 = "UA2329723")

and require all functions that need this information to have it as an argument:

do_stuff = function(arg1, arg2, token)
do_stuff(arg1, arg2, token = token_information)

In this way it is clear from the code that token information is needed in the function, and you can debug the function on its own. Furthermore, the function has no side effects, as its behavior is fully determined by its input arguments. A typical user script would look something like:

token_info = create_token(token1, token2)
do_stuff(arg1, arg2, token_info)

I hope this makes things more clear.

4
  • 4
    Thanks for the answer. I have experience with programming, and know that global variables generally are a nogo. However, I'm establishing an API access to a service, in order to stay connected to this service, the functions need a couple of tokens. These tokens should be accesible by all the functions, what I've come up with, is creating a .RData file that stores this data, but that seems like a bad idear.
    – bskard
    Sep 26, 2012 at 9:40
  • 7
    The normal R pattern is to have some kind of 'handle' object that keeps your tokens, and pass that handle to your functions. That also lets you have multiple concurrent sessions with different tokens. That's the pattern for database access, for example.
    – Spacedman
    Sep 26, 2012 at 11:10
  • 15
    I think your argument for why global variables are evil needs some tweaking for R - all of the functions you create in the package are global variables. Are they evil? ;)
    – hadley
    Oct 8, 2012 at 14:45
  • 1
    All globals are evil, but some are more evil than others ;). Reference classes seem to be a more classical object oriented approach. This would allow object methods (functions) to be local as well. Oct 8, 2012 at 15:03
2

The question is unclear:

  • Just one R process or several?

  • Just on one host, or across several machine?

  • Is there common file access among them or not?

In increasing order of complexity, I'd use a file, a SQLite backend via the RSQlite package or (my favourite :) the rredis package to set to / read from a Redis instance.

2

You could also create a list of tokens and add it to R/sysdata.rda with usethis::use_data(..., internal = TRUE). The data in this file is internal, but accessible by all functions. The only problem would arise if you only want some functions to access the tokens, which would be better served by:

  1. the environment solution already proposed above; or
  2. creating a hidden helper function that holds the tokens and returns them. Then just call this hidden function inside the functions that use the tokens, and (assuming it is a list) you can inject them to their environment with list2env(..., envir = environment()).
2

If you don't mind adding a dependency to your package, you can use an R6 object from the homonym package, as suggested in the comments to @greg-snow's answer.

R6 objects are actual environments with the possibility of adding public and private methods, are very lightweight and could be a good and more rigorous option to share package's global variables, without polluting the global environment.

Compared to @greg-snow's solution, it allows for a stricter control of your variables (you can add methods that check for types for example). The drawback can be the dependency and, of course, learning the R6 syntax.

library(R6)
MyPkgOptions = R6::R6Class(
  "mypkg_options",
  public = list(
    get_option = function(x) private$.options[[x]]
  ),
  active = list(
    var1 = function(x){
      if(missing(x)) private$.options[['var1']]
      else stop("This is an environment parameter that cannot be changed")
    }
    ,var2 = function(x){
      if(missing(x)) private$.options[['var2']]
      else stop("This is an environment parameter that cannot be changed")
    }
  ),
  private = list(
    .options = list(
      var1 = 1,
      var2 = 2
    )
  )
)
# Create an instance
mypkg_options = MyPkgOptions$new()
# Fetch values from active fields
mypkg_options$var1
#> [1] 1
mypkg_options$var2
#> [1] 2
# Alternative way
mypkg_options$get_option("var1")
#> [1] 1
mypkg_options$get_option("var3")
#> NULL
# Variables are locked unless you add a method to change them
mypkg_options$var1 = 3
#> Error in (function (x) : This is an environment parameter that cannot be changed

Created on 2020-05-27 by the reprex package (v0.3.0)

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.