Several || left where _R_CHECK_LENGTH_1_LOGIC2_ barfs

[sneumann]

Hi,

the vignette build of http://bioconductor.org/checkResults/devel/data-experiment-LATEST/mtbls2/
fails with an

Error in is.na(object@sample) || length(object@sample) < 1 : 
  'length(x) = 16 > 1' in coercion to 'logical(1)'

which is in

CAMERA/R/xsVisualise.R

Line 323 in 9f4552c

if (is.na(object@sample) || length(object@sample)<1) {

that has escaped fixes in bc0e9fd and 34795a2.