Disable R.NET AutoPrint (fix fslaborg#161 and perhaps fslaborg#160)

tpetricek · Nov 14, 2015 · 278388a · 278388a
1 parent 257930c
commit 278388a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/RProvider/RInit.fs b/src/RProvider/RInit.fs
@@ -116,7 +116,7 @@ let internal engine = Lazy<_>(fun () ->
     try
         Logging.logf "engine: Creating and initializing instance (sizeof<IntPtr>=%d)" IntPtr.Size 
         initResult.Force() |> ignore
-        let engine = REngine.GetInstance(null, true, null, characterDevice)
+        let engine = REngine.GetInstance(null, true, null, characterDevice, AutoPrint=false)
         System.AppDomain.CurrentDomain.DomainUnload.Add(fun _ -> engine.Dispose()) 
         Logging.logf "engine: Created & initialized instance"
         engine

diff --git a/src/RProvider/RInterop.fs b/src/RProvider/RInterop.fs
@@ -361,7 +361,7 @@ module RInterop =
         | "double" | "character" | "list" | "logical" ->
             RValue.Value
         | something ->
-            printfn "Ignoring name %s of type %s" name something
+            Logging.logf "Ignoring name %s of type %s" name something
             RValue.Value      
 
     let getPackages() : string[] =
@@ -429,7 +429,7 @@ module RInterop =
             | "double" | "character" | "list" | "logical" ->
                 RValue.Value
             | something ->
-                printfn "Ignoring name %s of type %s" name something
+                Logging.logf "Ignoring name %s of type %s" name something
                 RValue.Value
         name, serializeRValue value