library(ranger)
 model_rf <- ranger(default ~ .,
                          data = loan_data_tbl_train,
                          num.trees = 300,
                          mtry = 2,
                          # splitrule = "gini",
                          # min.node.size = 1,
                          importance = "impurity",
                          probability = TRUE
                 )

saveRDs(model_rf, "model_rf.RDs")

### SQL PROCEDURE
 CREATE PROCEDURE [dbo].[Random_Forest_R_Model]

 @M                   NVARCHAR(MAX),
 @ModelName           NVARCHAR(100),
 @ModelType           NVARCHAR(100),
 @ModelDescription    NVARCHAR(500),
 @ModelVersion        NVARCHAR(10)

AS

BEGIN
  SET NOCOUNT ON

IF OBJECT_ID('[CI_PROD_DMP].[dbo].[Random_Forest_R_Model]', 'U') IS NULL
  BEGIN
 CREATE TABLE [CI_PROD_DMP].[dbo].[Random_Forest_R_Model]
(
  Model               VARBINARY(MAX) NOT NULL,
  ModelName           NVARCHAR(100),
  ModelType           NVARCHAR(100),
  ModelDescription    NVARCHAR(500),
  ModelVersion        NVARCHAR(10)
)
END

INSERT INTO [CI_Temp].[dbo].[Random_Forest_R_Model]
(Model,
 ModelName,
 ModelType,
 ModelDescription,
 ModelVersion)
VALUES
 (CONVERT(VARBINARY(MAX), @M, 2),

 @ModelName,
 @ModelType,
 @ModelDescription,
 @ModelVersion

END

library(RJDBC)
driver <- JDBC("com.microsoft.sqlserver.jdbc.SQLServerDriver",
           "/Users/james/Documents/Lib/sqljdbc_6.2/enu/mssql-jdbc-  6.2.1.jre8.jar")

db_url <- "jdbc:sqlserver://120.220.20.2; databasename = CI_Temp;
            user = ci_user; password = xxx"

con <- dbConnect(driver, url = db_url)

model_bin_rf  <- serialize(model_rf, NULL)

model_bin_str_rf <- paste(model_bin_rf, collapse = “")


query_rf_loan <- paste0("EXEC Random_Forest_R_Model
                       @M = '", model_bin_str_rf, "',
                       @ModelName = 'Loan Prediction RF (2018)',
                       @ModelType = 'Random Forest',
                       @ModelDescription = 'Random Forest Classifier',
                       @ModelVersion = 1.0")

dbSendUpdate(con, query_rf_loan)

Error in .local(conn, statement, ...) :
execute JDBC update query failed in dbSendUpdate (Broken pipe (Write failed))