length > 1 issue in band check vapour_read_raster

[mdsumner]

 im <- vapour::vapour_read_raster("https://herbariumnsw-pds.s3-ap-southeast-2.amazonaws.com/images/NSW041500.jp2", band = 1:3, window = c(0, 0, 7175, 9661, 717, 966))
Warning message:
In !is.numeric(band) || band < 1 :
  'length(x) = 3 > 1' in coercion to 'logical(1)'