Losing slots in qw object

[ldecicco-USGS]

Does anyone know a reason why a qw object would not be an S4 object?

We're getting a lot of errors:

Error in as.mcens(x) :
trying to get slot "remark.codes" from an object (class "qw") that is not an S4 object

Error in format.qw(x[[i]], ..., justify = justify) :
trying to get slot "reporting.level" from an object (class "qw") that is not an S4 object

So, it's like the class name "qw" was retained, but the guts of the object (the slots) got erased somehow.

[ldecicco-USGS]

For example:

> str(x$z)
 qw[1:3182], left censoring: " 0.030" " 0.170" " 0.200" " 0.170" " 0.030" " 0.030" 
> as.mcens(x$z)
Error in as.mcens(x$z) : 
  trying to get slot "remark.codes" from an object (class "qw") that is not an S4 object 

[ldecicco-USGS]

But, this works:

z <- as.qw(values = c(1,2,3), 
           remark.codes = c("<","",""),
           value.codes = c("","",""),
           reporting.level = c(1,1,1),
           reporting.method = c("","",""),
           reporting.units = c("mg/L","mg/L","mg/L"),
           analyte.method = c("","",""),
           analyte.name = c("","",""),
           unique.code = c("","",""),
           value2 = c(1,2,3)
)

df <- data.frame(z=z)

as.mcens(df$z)
    Lower Upper
[1] -Inf  1    
[2] 2     2    
[3] 3     3  

[ldecicco-USGS]

Actually, the slots seem to be there...the actual data looks like this:

> as.mcens(GLRI_QW$Ammonia.N)
Error in as.mcens(GLRI_QW$Ammonia.N) : 
  trying to get slot "remark.codes" from an object (class "qw") that is not an S4 object 
> slot(GLRI_QW$Ammonia.N, "remark.codes")
  [1] " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "<" "<" "<" "<" " " " " " " " " " " " " " " " " " " " " "<" "<" "<" " " "<" "<" " " " " " " " "
 [41] " " " " " " " " " " " " " " " " " " " " " " " " " " "<" "<" "<" "<" "<" " " "<" "<" "<" " " " " "<" " " " " " " "<" "<" " " " " "<" "<" " " "<" " " " " " " " "
 [81] " " " " "<" " " "<" "<" " " "<" "<" "<" "<" "<" "<" " " " " "<" " " " " " " " " " " " " " " " " " " "<" "<" "<" "<" "<" " " "<" " " " " " " "<" " " " " " " NA 
[121] " " " " " " "<" " " "<" " " " " " " "<" " " "<" " " " " NA  "<" "<" " " " " " " " " NA 
isS4(GLRI_QW$Ammonia.N)
[1] FALSE

So, it's not losing it's slots, but it's no longer considered S4.