p <- oclPlatforms()
if (length(p)) {
cat("== Platform information:\n")
print(oclInfo(p[[1]]))
d <- oclDevices(p[[1]])
if (length(d)) {
cat("== Device information:\n")
print(oclInfo(d))
}
}
Run the code above in your browser using DataLab