Re-Assignment of Sample Ids fails

[alexg9010]

> getSampleID(methylRawList.obj) <- c("1","2","3","4")
Error in asMethod(object, Class, value) :
  c("the computation: 'as(object,\"vector\") <- value' is valid when object has class “list” only if 'is(value, \"vector\")' is TRUE ('class(value)' was “matrix”)\n", "the computation: 'as(object,\"vector\") <- value' is valid when object has class “list” only if 'is(value, \"vector\")' is TRUE ('class(value)' was “array”)\n")

Note: The error message could be improved too.

> getSampleID(methylRawList.obj) <- c(1,2,3,4)
Error in (function (cl, name, valueClass)  :
  assignment of an object of class “numeric” is not valid for @‘sample.id’ in an object of class “methylRaw”; is(value, "character") is not TRUE