InputParameter: SQL Saklı Yordamı için Giriş Parametresi: Sınıf Oluşturucu

InputParameter: BIR SQL Server Saklı Yordamına katıştırılacak R işlevinin giriş parametreleri hakkındaki bilgileri yakalayan bir InputParameter Nesnesi oluşturur. Bunlar saklı yordamın giriş parametreleri haline gelir. Giriş parametrelerinin desteklenen R türleri POSIXct, sayısal, karakter, tamsayı, mantıksal ve ham'dır.

Kullanım

  InputParameter(name, type, defaultValue = NULL, defaultQuery = NULL,
  value = NULL, enableOutput = FALSE)

Bağımsız değişken

name

Giriş parametresi nesnesinin adı olan bir karakter dizesi.

type

Giriş parametresi nesnesinin R türünü temsil eden bir karakter dizesi.

defaultValue

Parametresinin varsayılan değeri. "Ham" için desteklenmez.

defaultQuery

Saklı yordamın yürütülmesi sırasında farklı bir sorgu sağlanmazsa verileri alacak varsayılan sorguyu belirten karakter dizesi.

value

Saklı yordamın sonraki çalıştırmasında parametresi için kullanılacak bir değer.

enableOutput

Bunu Giriş/Çıkış Parametresi yap

Değer

InputParameter Nesnesi

Örnekler

 ## Not run:

 # See ?StoredProcedure for creating the `cleandata` table.
 # and ?executeStoredProcedure for creating the `rdata` table. 

 # score1 makes a batch prediction given clean data(indata),
 # model object(model_param), and the new name of the variable
 # that is being predicted
 score1 <- function(indata, model_param, predVarName) {
 indata[,"DayOfWeek"] <- factor(indata[,"DayOfWeek"], levels=c("Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday"))
 # The connection string
 conStr <- paste("Driver={ODBC Driver 13 for SQL Server};Server=.;Database=RevoTestDB;",
                 "Trusted_Connection=Yes;", sep = "")
 # The compute context
 computeContext <- RxInSqlServer(numTasks=4, connectionString=conStr)
 mm <- rxReadObject(as.raw(model_param))
 # Predict
 result <- rxPredict(modelObject = mm,
                     data = indata,
                     outData = NULL,
                     predVarNames = predVarName,
                     extraVarsToWrite = c("ArrDelay"),
                     writeModelVars = TRUE,
                     overwrite = TRUE)
}
# connections string
conStr <- paste0("Driver={ODBC Driver 13 for SQL Server};Server=.;Database=RevoTestDB;",
                "Trusted_Connection=Yes;")
# create InputData Object for an input parameter that is a data frame
id <- InputData(name = "indata", defaultQuery = "SELECT * from cleanData")
# InputParameter for the model_param input variable
model <- InputParameter("model_param", "raw",
                       defaultQuery =
                         "select top 1 value from rdata where [key] = 'linmod.v1'")
# InputParameter for the predVarName variable
name <- InputParameter("predVarName", "character", value = "ArrDelayEstimate")
sp_df_df <- StoredProcedure(score1, "sTest", id, model, name,
                       filePath = ".")
## End(Not run)