## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.logical(col, optional = optional): Direct call of
-## 'as.data.frame.logical()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.logical(col, optional = optional): Direct call of
-## 'as.data.frame.logical()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
simple helper function that checks for the correct length of
value. Each data replacement method needs to check for that
and this function thus reduces code duplication.
-
+
.match_length<-function(x, y){if(length(x)!=length(y))stop("Length of 'value' has to match the length of 'object'")
@@ -1499,13 +1446,13 @@
})
We could now use this method to replace the intensities in our
backend with modified intensities.
a efficient is.unsorted() implementation for
NumericList is already available, which is faster than
e.g. calling vapply(mz(be), is.unsorted, logical(1)).
-
for our backend class we need to loop over this list to extract the m/z
and intensity values and assign them to the @mz and
@intensity slots.
-
+
setReplaceMethod("peaksData", "MsBackendTest", function(object, value){if(!(is.list(value)||inherits(value, "SimpleList")))stop("'value' has to be a list-like object")
@@ -1568,14 +1515,14 @@
})
Using the peaksData<- method we can now also for
example remove peaks.
-
+
pd<-peaksData(be)## Remove the first peak from the first spectrumpd[[1L]]<-pd[[1L]][-1L, ]lengths(be)
replacement method above. This would make the whole code base for our
backend cleaner as replacing or adding spectra variables would be
handled in a single central function.
-
load data on-the-fly from data files, this spectra variable could be
used to store the name of the data files and hence we would need to
perform some additional checks within this replacement function.
-
NA_integer for missing). Thus, in our implementation we
also make sure the input parameter contains the expected values
(although this is not a strictly required).
-
+
setReplaceMethod("polarity", "MsBackendTest", function(object, value){if(!all(value%in%c(0, 1, NA)))stop("'polarity' should be encoded as 0L (negative), 1L (positive) ",
@@ -1886,7 +1833,7 @@
numeric. Also, although it is not a strict requirement,
retention times should ideally be ordered increasingly per
sample and their unit should be seconds.
-
Replace the spectra variable smoothed that indicates whether
some data smoothing operation was performed on the spectra. Parameter
value must be of type logical.
See also the notes on parallel processing above for more information.
The default implementation returns factor() (i.e. a
factor of length 0) hence not suggesting any splitting:
-
c("mz", "intensity"). This method should only be
implemented for backends that (eventually) also provide additional peaks
variables. The default implementation is shown below.
-
by the backend) with the sum of all intensities within each spectrum.
For empty spectra NA_real_ should be returned. The method
below is the default implementation of the method.
-
second argument from which all data should be taken and exported.
Implementation of this method is optional. The implementation of the
method for the MsBackendMzR backend is shown below.
-
MsBackend into a list of
MsBackend objects. The default implementation is shown
below.
-
+
setMethod("split", "MsBackend", function(x, f, drop=FALSE, ...){split.default(x, f, drop =drop, ...)})
@@ -2161,7 +2108,7 @@
data in its backendInitialize() method that
allows it to be initialized with a DataFrame containing the
full spectra data. The default implementation is shown below.
-
spectra with their dataOrigin spectra variable matching the
values provided with the dataOrigin parameter. The default
implementation for MsBackend is shown below.
-
filterDataStorage() should subset a backend to spectra with
their dataStorage spectra variable matching the values
provided with the dataStorage parameter.
-
empty spectra (i.e. spectra without any mass peaks) from the
backend. The method is expected to return the subset backend. The
default implementation for MsBackend is shown below.
-
backend to spectra with the provided MS level(s). Parameter
msLevel has to be an integer (any length). The
default implementation for MsBackend is shown below.
-
mz is expected to be a numeric of length 2
defining the lower and upper limit of this precursor m/z range. The
default implementation for MsBackend is shown below.
-
backend should be split (by default by original data file) to avoid
selecting spectra from different samples/files. The default
implementation for MsBackend is shown below.
-
Testing the validity of the backend
Below we load this test suite and call the tests. The tests will be
performed on a variable be in the current workspace (which
in our case is an instance of our MsBackendTest class).
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
+sps_mem<-setBackend(sps_mzr, MsBackendMemory())
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.logical(col, optional = optional): Direct call of
-## 'as.data.frame.logical()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.logical(col, optional = optional): Direct call of
-## 'as.data.frame.logical()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.logical(col, optional = optional): Direct call of
-## 'as.data.frame.logical()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.logical(col, optional = optional): Direct call of
-## 'as.data.frame.logical()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.logical(col, optional = optional): Direct call of
-## 'as.data.frame.logical()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.logical(col, optional = optional): Direct call of
-## 'as.data.frame.logical()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.logical(col, optional = optional): Direct call of
-## 'as.data.frame.logical()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.logical(col, optional = optional): Direct call of
-## 'as.data.frame.logical()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.integer(col, optional = optional): Direct call of
-## 'as.data.frame.integer()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead
-
-## Warning in as.data.frame.numeric(col, optional = optional): Direct call of
-## 'as.data.frame.numeric()' is deprecated. Use 'as.data.frame.vector()' or
-## 'as.data.frame()' instead