1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
.makedotsLowLevel <- function(dots){
dots$sub <- dots$xlab <- dots$ylab <- dots$main <- dots$type <- NULL
dots$xlim <- dots$ylim <- dots$yaxt <- dots$axes <- dots$xaxt <- NULL
dots$panel.last <- dots$panel.first <- dots$frame.plot <- dots$ann <-NULL
dots$log <- dots$bg <- dots$asp <- NULL
# 20240822 added an additional layer of security
if (length(dots) == 0 ) dots <- NULL
return(dots)
}
.makedotsL <- function(dots){
dots <- .makedotsLowLevel(dots)
dots$pch <- dots$cex <- NULL
# 20240822 added an additional layer of security
if (length(dots) == 0 ) dots <- NULL
dots
}
.makedotsP <- function(dots){
dots <- .makedotsLowLevel(dots)
dots$lwd <- dots$lty <- NULL
# 20240822 added an additional layer of security
if (length(dots) == 0 ) dots <- NULL
dots
}
.makedotsPt <- function(dots){
dots <- dots[names(dots) %in% c("bg", "lwd", "lty")]
dots$pch <- NULL
if (length(dots) == 0 ) dots <- NULL
dots
}
|
