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