fuzzing: empty RLum.Results object

[mcol]

This script:

library(CBTF)
ignore.patterns <- NULL
funs <- get_exported_functions("Luminescence",
                               c("Analyse_SAR.OSLdata",
                                 "calc_MaxDose",
                                 "get_Quote",
                                 "github_commits",
                                 "install_DevelopmentVersion",
                                 "plot_GrowthCurve",
                                 "show",
                                 "tune_Data"))
ignore.patterns <- c("Unknown 'data.object'",
                     "No valid records in",
                     "should be of class")

what <- set_RLum("RLum.Results")
fuzz(funs, what, ignore.patterns = ignore.patterns, ignore.warnings = FALSE)

Produces the following output:

	🚨   CAUGHT BY THE FUZZ!   🚨

FAIL: analyse_Al2O3C_CrossTalk ( RLum.Results )
    unused argument (recordType = "OSL (UVVIS)")

FAIL: calc_AverageDose ( RLum.Results )
    argument is of length zero

FAIL: calc_CosmicDoseRate ( RLum.Results )
    comparison (<) is possible only for atomic and list types

FAIL: calc_IEU ( RLum.Results )
    argument is of length zero

FAIL: convert_Daybreak2CSV ( RLum.Results )
    attempt to set an attribute on NULL

FAIL: convert_PSL2CSV ( RLum.Results )
    attempt to set an attribute on NULL

FAIL: convert_XSYG2CSV ( RLum.Results )
    attempt to set an attribute on NULL

FAIL: github_branches ( RLum.Results )
    no method for coercing this S4 class to a vector

FAIL: github_issues ( RLum.Results )
    no method for coercing this S4 class to a vector

FAIL: plot_DRTResults ( RLum.Results )
    subscript out of bounds

FAIL: plot_Histogram ( RLum.Results )
    'x' must be numeric

FAIL: plot_OSLAgeSummary ( RLum.Results )
    no method for coercing this S4 class to a vector

FAIL: set_RLum ( RLum.Results )
    no method for coercing this S4 class to a vector

WARN: sTeve
    calling par(new=TRUE) with no plot

FAIL: write_RLum2CSV ( RLum.Results )
    attempt to set an attribute on NULL

Part of #439.