create utils library

lib/utils/OCamlR_utils.ml

@@ -0,0 +1,22 @@
+open OCamlR
+open OCamlR_wraputils
+open OCamlR_base
+
+module Stubs = OCamlR_utils_stubs
+
+let data ?envir name =
+  R.eval (R.symbol "data") [
+    R.arg R.string name ;
+    R.opt Environment.r "envir" envir ;
+  ]
+  |> ignore
+
+let write'table ?file ?sep ?col'names ?row'names ?quote x =
+  Stubs.write'table
+    ?file:(file |?> R.string)
+    ?sep:(sep |?> R.string)
+    ?col'names:(col'names |?> R.bool)
+    ?row'names:(row'names |?> R.bool)
+    ?quote:(quote |?> R.bool)
+    ~x:(Dataframe.r x) ()
+  |> ignore

lib/utils/OCamlR_utils.mli

@@ -0,0 +1,14 @@
+open OCamlR_base
+
+val data :
+  ?envir:Environment.t ->
+  string -> unit
+
+val write'table :
+  ?file:string ->
+  ?sep:string ->
+  ?col'names:bool ->
+  ?row'names:bool ->
+  ?quote:bool ->
+  Dataframe.t ->
+  unit

lib/utils/dune

@@ -0,0 +1,10 @@
+(library
+ (name            OCamlR_utils)
+ (public_name     ocaml-r.utils)
+ (wrapped         false)
+ (libraries       ocaml-r.base ocaml-r.wraputils))
+
+(rule
+ (targets OCamlR_utils_stubs.ml)
+ (deps    (:exe ../../stubgen/stubgen.exe))
+ (action  (with-stdout-to %{targets} (run %{exe} utils))))