library(okcpuid)
library(RTop500)


cpuinfo <- okcpuid::cpu_clock()
ncores <- cpuinfo$ncores
theoretical.peak <- cpuinfo$peak

theoretical.peak <- unclass(theoretical.peak) / 1e9 ## FIXME

### Plots
plot_top500(type="theoretical", my.val=theoretical.peak)


plot_top500(type="ncores", my.val=ncores)
library(shiny)

path <- tools::file_path_as_absolute(system.file("RTop500", package="RTop500"))
runApp(path)


shinra-dev/RTop500 documentation built on May 29, 2019, 9:25 p.m.