InputData: Input Data untuk Prosedur Tersimpan SQL: Generator Kelas

Artikel
04/16/2024

InputData: menghasilkan Objek InputData yang menangkap informasi tentang parameter input yang merupakan bingkai data. Bingkai data perlu diisi setelah eksekusi kueri tertentu. Objek ini diperlukan untuk pembuatan prosedur tersimpan di mana fungsi R yang disematkan mengambil parameter input bingkai data.

Penggunaan

  InputData(name, defaultQuery = NULL, query = NULL)

Argumen

`name`

String karakter, nama parameter input data ke dalam fungsi R yang disediakan ke StoredProcedure.

`defaultQuery`

String karakter yang menentukan kueri default yang akan mengambil data jika kueri yang berbeda tidak disediakan pada saat eksekusi prosedur tersimpan. Harus berupa kueri SELECT sederhana.

`query`

String karakter yang menentukan kueri yang akan digunakan untuk mengambil data dalam menjalankan prosedur tersimpan berikutnya.

Nilai

Objek InputData

Contoh


 ## Not run:

 # See ?StoredProcedure for creating the "cleandata" table.

 # train 1 takes a data frame with clean data and outputs a model
 train1 <- function(in_df) {
   in_df[,"DayOfWeek"] <- factor(in_df[,"DayOfWeek"], levels=c("Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday"))
   # The model formula
   formula <- ArrDelay ~ CRSDepTime + DayOfWeek + CRSDepHour:DayOfWeek
   # Train the model
   rxSetComputeContext("local")
   mm <- rxLinMod(formula, data=in_df)
   mm <- rxSerializeModel(mm)

   return(list("mm" = mm))
 }
 # create InpuData Object for an input parameter that is a data frame
 # note: if the input parameter is not a data frame use InputParameter object
 id <- InputData(name = "in_df",
                defaultQuery = paste0("select top 10000 ArrDelay,CRSDepTime,",
                                      "DayOfWeek,CRSDepHour from cleanData"))
 # create an OutputParameter object for the variable inside the return list
 # note: if that variable is a data frame use OutputData object
 out <- OutputParameter("mm", "raw")

 # connections string
 conStr <- paste0("Driver={ODBC Driver 13 for SQL Server};Server=.;Database=RevoTestDB;",
                  "Trusted_Connection=Yes;")
 # create the stored procedure object
 sp_df_op <- StoredProcedure("train1", "spTest1", id, out,
                        filePath = ".")
 # register the stored procedure with the database
 registerStoredProcedure(sp_df_op, conStr)

 # execute the stored procedure, note: non-data frame variables inside the
 # return list are not returned to R. However, if the execution is not successful
 # the error will be displayed
 model <- executeStoredProcedure(sp_df_op, connectionString = conStr)
 # get the linear model
 mm <- rxUnserializeModel(model$params$op1)
## End(Not run)

Bagikan melalui