R as.binary очень медленно с большим вектором

Question

Я читаю файл netcdf, в котором есть одна переменная с флажками качества. Поэтому мне нужно преобразовать целые числа в отдельные флаги.

Однако, это очень медленно для больших растровых файлов (2-3 минуты для растра 1500x1200). Есть ли способ ускорить процесс?

library(sp)
library(rgdal)
library(binaryLogic)

qul = raster("test.nc", varname='qual_flag')

qula = as.array(qul)
Sys.time()
bin = as.binary(as.vector(qula), n=10)
Sys.time()