Control the number of threads on BLAS for R