crash in plot_AbanicoPlot() if zlim = NULL

[mcol]

This crashes:

data(ExampleData.DeValues, envir = environment())
plot_AbanicoPlot(ExampleData.DeValues$CA1, zlim = NULL)

# Error in round(pretty(limits.z, n = 5), 3) :
#   non-numeric argument to mathematical function

For some reason this gets triggered by RLumShiny.

[mcol]

I've just noticed this duplication:

Luminescence/R/plot_AbanicoPlot.R

Lines 649 to 657 in 3cbe421

	if("zlim" %in% names(extraArgs)) {
	limits.z <- extraArgs$zlim
	} else {
	z.span <- (mean(De.global) * 0.5) / (sd(De.global) * 100)
	z.span <- ifelse(z.span > 1, 0.9, z.span)
	limits.z <- c((ifelse(min(De.global) <= 0, 1.1, 0.9) - z.span) *
	min(De.global),
	(1.1 + z.span) * max(De.global))
	}

Luminescence/R/plot_AbanicoPlot.R

Lines 936 to 943 in 3cbe421

	if("zlim" %in% names(extraArgs)) {
	limits.z <- extraArgs$zlim
	} else {
	z.span <- (mean(data.global[,1]) * 0.5) / (sd(data.global[,1]) * 100)
	z.span <- ifelse(z.span > 1, 0.9, z.span)
	limits.z <- c((0.9 - z.span) * min(data.global[[1]]),
	(1.1 + z.span) * max(data.global[[1]]))
	}

[mcol]

The first block is used to set the value of the at graphical parameter, the second one is the one actually used for zlim. This code has been there since the first commit, and as we don't have comprehensive graphical snapshots yet, I'll leave that untouched. That means putting a NULL check in both places.