Add an OpenCL platform/device summary function and allow R to pick the current OCL Device