1get_ll_warn <- function() {
2    get("ll_warn", envir = .spOptions)
3}
4
5get_ll_TOL <- function() {
6    get("ll_TOL", envir = .spOptions)
7}
8
9
10get_ReplCRS_warn <- function() {
11    get("ReplCRS_warn", envir = .spOptions)
12}
13
14
15set_ll_warn <- function(value) {
16        stopifnot(is.logical(value))
17        stopifnot(length(value) == 1)
18        assign("ll_warn", value, envir = .spOptions)
19        get_ll_warn()
20}
21
22set_ll_TOL <- function(value) {
23        stopifnot(is.numeric(value))
24        stopifnot(length(value) == 1)
25        stopifnot(value > 0)
26        assign("ll_TOL", value, envir = .spOptions)
27        get_ll_TOL()
28}
29
30set_ReplCRS_warn <- function(value) {
31        stopifnot(is.logical(value))
32        stopifnot(length(value) == 1)
33        assign("ReplCRS_warn", value, envir = .spOptions)
34        get_ReplCRS_warn()
35}
36
37get_Polypath <- function() {
38    get("Polypath", envir = .spOptions)
39}
40
41set_Polypath <- function(value) {
42        stopifnot(is.logical(value))
43        stopifnot(length(value) == 1)
44        assign("Polypath", value, envir = .spOptions)
45        get_Polypath()
46}
47
48get_PolypathRule <- function() {
49    get("PolypathRule", envir = .spOptions)
50}
51
52set_PolypathRule <- function(value) {
53        stopifnot(is.character(value))
54        stopifnot(length(value) == 1)
55        stopifnot(value %in% c("winding", "evenodd"))
56        assign("PolypathRule", value, envir = .spOptions)
57        get_PolypathRule()
58}
59
60set_col_regions <- function(value) {
61        stopifnot(is.character(value))
62        stopifnot(length(value) > 1)
63	    assign("col.regions", value, envir = .spOptions)
64		get_col_regions()
65}
66
67get_col_regions <- function() {
68	    get("col.regions", envir = .spOptions)
69}
70