Fix 68: make the result of `dput()` work

[GegznaV]

• Fixes #68 in a symptomatic way. A better solution could be implemented in the future.

suppressPackageStartupMessages({library(hyperSpec)})

new("hyperSpec", wavelength = c(405, 405.5, 406, 406.5, 407, 
407.5, 408, 408.5, 409, 409.5, 410), data = structure(list(spc = structure(c(27.15, 
32.344666, 33.378666, 34.419333, 36.531333, 37.647666, 38.137, 
39.177, 40.735666, 41.381333, 44.251333), dim = c(1L, 11L), dimnames = list(
    NULL, c("405", "405.5", "406", "406.5", "407", "407.5", "408", 
    "408.5", "409", "409.5", "410"))), filename = "rawdata/flu1.txt", 
    c = 0.05), row.names = 1L, class = "data.frame"), label = list(
    .wavelength = expression(lambda/nm), spc = expression(I[fl]/"a.u."), 
    filename = "filename", c = "c / (mg / l)"), log = new("data.frame", 
    .Data = list(), names = character(0), row.names = integer(0), 
    .S3Class = "data.frame"))
#> hyperSpec object
#>    1 spectra
#>    3 data columns
#>    11 data points / spectrum

^{Created on 2022-08-07 by the reprex package (v2.0.1)}