init

data.R

@@ -0,0 +1,11 @@
+library(jsonlite)
+library(data.table)
+library(ggplot2)
+
+init <- function() {
+    j <<- fromJSON("cpubenchmark.json")
+    d <<- j$data
+    setDT(d)
+    d[, price := as.numeric(gsub("[\\$,]", "", price))]
+    dd <<- \() d[ grepl(s, name), ]
+}