readSLI: take byte order of hdr into consideration about rstoolbox HOT 3 CLOSED

I'm trying to modify readSLI() locally on my own, but as soon as I do it with
fix(readSLI)
upon running I get:
Error in .getNumeric(hdr[grep("samples", hdr)]) :
could not find function ".getNumeric"

using a windows box (today) and the github version o RStoolbox

from rstoolbox.

I have circumvented the problem by including .getNumeric() and .bracketRange() in a modified local version
of readSLI() and it works.
The only diferences to the original readSLI() are:
change

        data_type  <- .getNumeric(hdr[grep("data type", hdr)])
        id <- .bracketRange(hdr, "spectra names")

to

        data_type  <- .getNumeric(hdr[grep("data type", hdr)])
        byte_order <- .getNumeric(hdr[grep("byte order", hdr)])
        byte_order <- ifelse(byte_order==0,"little","big") 
        id <- .bracketRange(hdr, "spectra names")

and
x[] <- readBin(path, "numeric", n = 1e+06, size = bytes)
to
x[] <- readBin(path, "numeric", n = 1e+06, size = bytes,endian=byte_order)

from rstoolbox.

Well done, thanks! Fixed now.

from rstoolbox.