R/wide2long.R

In esm-ispm-unibe-ch/nmadata: Network Meta-Analysis Database API

wide2long = function (data,type="binary") {
  library(V8)
  js <- V8::v8(typed_arrays = TRUE)
  #js$source(file=system.file("js/underscore-min.js", package="V8"))
  js$source("https://raw.githubusercontent.com/esm-ispm-unibe-ch/dataformatter/master/js/underscore-min.js")
  #js$source(file="js/combinations.js")
  js$source("https://raw.githubusercontent.com/esm-ispm-unibe-ch/dataformatter/master/js/wide2Long.js")
  result = js$call("wideToLong",data,type)
  return (result)
}