Compartir vía

Conversión de código de R en un procedimiento almacenado mediante sqlrutils

  • Artículo

En este artículo se detallan los pasos para usar el paquete sqlrutils para convertir el código R de modo que se ejecute como un procedimiento almacenado de T-SQL. Para obtener el mejor resultado posible, es posible que sea necesario modificar ligeramente el código a fin de garantizar que todas las entradas se puedan parametrizar.

Paso 1. Reescritura de scripts de R

Para obtener los mejores resultados, debe reescribir el código de R para encapsularlo como una sola función.

Todas las variables usadas por la función deben definirse dentro de esta o que deben definirse como parámetros de entrada. Vea el código de ejemplo de este artículo.

Además, puesto que los parámetros de entrada de la función de R se convertirán en los parámetros de entrada del procedimiento almacenado de SQL, debe asegurarse de que las entradas y salidas cumplan los requisitos de tipo siguientes:

Entradas

Entre los parámetros de entrada puede haber como mucho una trama de datos.

Los objetos de dentro de la trama de datos, así como todos los demás parámetros de entrada de la función, deben ser de los siguientes tipos de datos de R:

  • POSIXct
  • NUMERIC
  • character
  • integer
  • lógicos
  • raw

Si un tipo de entrada no es uno de los tipos anteriores, tiene que serializarse y pasarse a la función como raw. En este caso, la función también debe incluir código para deserializar la entrada.

Salidas

La función puede generar uno de los siguientes:

  • Una trama de datos que contenga los tipos de datos admitidos. Todos los objetos de la trama de datos deben usar uno de los tipos de datos admitidos.
  • Una lista con nombre que contenga como máximo una trama de datos. Todos los miembros de la lista deben usar uno de los tipos de datos admitidos.
  • Un valor NULL si la función no devuelve ningún resultado

Paso 2. Generación de los objetos necesarios

Una vez que el código de R se ha limpiado y se puede llamar como una sola función, usará las funciones del paquete sqlrutils para preparar las entradas y salidas en un formulario que se pueda pasar al constructor que crea realmente el procedimiento almacenado.

sqlrutils proporciona funciones que definen el tipo y el esquema de datos de entrada, y definen el tipo y el esquema de datos de salida. También incluye funciones que pueden convertir objetos de R en el tipo de salida necesario. Puede realizar varias llamadas de función para crear los objetos necesarios, en función de los tipos de datos que use el código.

Entradas

Si la función toma entradas, para cada una, llame a las siguientes funciones:

  • setInputData si la entrada es una trama de datos.
  • setInputParameter para el resto de tipos de entrada.

Cuando realice una llamada de función, se creará un objeto de R que posteriormente pasará como argumento a StoredProcedure para crear el procedimiento almacenado completo.

Salidas

sqlrutils proporciona varias funciones para convertir objetos de R, como listas, a trama de datos requerido por SQL Server. Si la función genera una trama de datos directamente, sin ajustar primero en una lista, puede omitir este paso. También puede omitir la conversión en este paso si la función devuelve NULL.

Al convertir una lista u obtener un elemento determinado de una lista, elija entre estas funciones:

  • setOutputData si la variable que se va a obtener de la lista es una trama de datos.
  • setOutputParameter para todos los demás miembros de la lista.

Cuando realice una llamada de función, se creará un objeto de R que posteriormente pasará como argumento a StoredProcedure para crear el procedimiento almacenado completo.

Paso 3. Generación del procedimiento almacenado

Cuando todos los parámetros de entrada y salida estén listos, realice una llamada al constructor de StoredProcedure.

Uso

StoredProcedure (func, spName, ..., filePath = NULL ,dbName = NULL, connectionString = NULL, batchSeparator = "GO")

Como ejemplo, supongamos que desea crear un procedimiento almacenado denominado sp_rsample con estos parámetros:

  • Usa una función existente foosql. La función estaba basada en el código existente en la función de R foo, pero reescribió la función para cumplir los requisitos, tal como se describe en esta sección, y le asignó el nombre foosql a la función actualizada.
  • Usa la trama de datos queryinput como entrada.
  • Genera como salida una trama de datos con el nombre de la variable de R, sqloutput.
  • Quiere crear el código T-SQL como un archivo en la carpeta C:\Temp, de modo que pueda ejecutarlo con SQL Server Management Studio más adelante.
StoredProcedure (foosql, sp_rsample, queryinput, sqloutput, filePath = "C:\\Temp")

Nota

Dado que está escribiendo el archivo en el sistema de archivos, puede omitir los argumentos que definen la conexión de base de datos.

La salida de la función es un procedimiento almacenado de T-SQL que se puede ejecutar en una instancia de SQL Server 2016 (requiere R Services) o SQL Server 2017 (requiere Machine Learning Services con R).

Para obtener más ejemplos, vea la ayuda del paquete llamando a help(StoredProcedure) desde un entorno de R.

Paso 4. Registro y ejecución del procedimiento almacenado

Puede ejecutar el procedimiento almacenado de dos maneras:

  • Mediante T-SQL, desde cualquier cliente que admita conexiones a la instancia de SQL Server 2016 o SQL Server 2017.
  • Desde un entorno de R.

Ambos métodos requieren que el procedimiento almacenado se registre en la base de datos en la que desee utilizar el procedimiento almacenado.

Registro del procedimiento almacenado

Puede registrar el procedimiento almacenado mediante R o puede ejecutar la instrucción CREATE PROCEDURE en T-SQL.

  • Con T-SQL. Si está más familiarizado con T-SQL, abra SQL Server Management Studio (o cualquier otro cliente que pueda ejecutar comandos DDL de SQL) y ejecute la instrucción CREATE PROCEDURE con el código preparado por la función StoredProcedure.

  • Con R. Mientras sigue en el entorno de R, puede usar la función registerStoredProcedure en sqlrutils para registrar el procedimiento almacenado en la base de datos.

    Por ejemplo, puede registrar el procedimiento almacenado sp_rsample en la instancia y la base de datos definidas en sqlConnStr, realizando esta llamada de R:

    registerStoredProcedure(sp_rsample, sqlConnStr)

Importante

Independientemente de si usa R o SQL, debe ejecutar la instrucción con una cuenta que tenga permisos para crear nuevos objetos de base de datos.

Ejecución con SQL

Una vez creado el procedimiento almacenado, abra una conexión a la base de datos SQL con cualquier cliente que admita T-SQL y pase los valores de los parámetros requeridos por el procedimiento almacenado.

Ejecución con R

Se necesita una preparación adicional si quiere ejecutar el procedimiento almacenado desde código de R, en lugar de SQL Server. Por ejemplo, si el procedimiento almacenado necesita valores de entrada, debe establecer dichos parámetros de entrada apara que se pueda ejecutar la función y, a continuación, pasar dichos objetos al procedimiento almacenado en el código de R.

El proceso general de llamada al procedimiento almacenado de SQL preparado es el siguiente:

  1. Llame a getInputParameters para obtener una lista de objetos de parámetro de entrada.
  2. Defina $query o establezca $value para cada parámetro de entrada.
  3. Use executeStoredProcedure para ejecutar el procedimiento almacenado desde el entorno de desarrollo de R, pasando la lista de objetos de parámetro de entrada que establezca.

Ejemplo

En este ejemplo se muestran las versiones anterior y posterior de un script de R que obtiene datos de una base de datos de SQL Server, realiza algunas transformaciones en los datos y los guarda en una base de datos diferente.

Este sencillo ejemplo se usa únicamente para demostrar cómo se puede reorganizar el código de R para facilitar la conversión a un procedimiento almacenado.

Antes de la preparación del código

sqlConnFrom <- "Driver={ODBC Driver 13 for SQL Server};Server=MyServer01;Database=AirlineSrc;Trusted_Connection=Yes;"
  
sqlConnTo <- "Driver={ODBC Driver 13 for SQL Server};Server=MyServer01;Database=AirlineTest;Trusted_Connection=Yes;"
  
sqlQueryAirline <- "SELECT TOP 10000 ArrDelay, CRSDepTime, DayOfWeek FROM [AirlineDemoSmall]"
  
dsSqlFrom <- RxSqlServerData(sqlQuery = sqlQueryAirline, connectionString = sqlConnFrom)
  
dsSqlTo <- RxSqlServerData(table = "cleanData", connectionString = sqlConnTo)
  
xFunc <- function(data) {
    data$CRSDepHour <- as.integer(trunc(data$CRSDepTime))
    return(data)
    }
  
xVars <- c("CRSDepTime")
  
sqlCompute <- RxInSqlServer(numTasks = 4, connectionString = sqlConnTo)
  
rxOpen(dsSqlFrom)
rxOpen(dsSqlTo)
  
if (rxSqlServerTableExists("cleanData", connectionString = sqlConnTo))   {
    rxSqlServerDropTable("cleanData")}
  
rxDataStep(inData = dsSqlFrom, 
     outFile = dsSqlTo,
     transformFunc = xFunc,
     transformVars = xVars,
     overwrite = TRUE)

Nota

Si usa una conexión ODBC en lugar de invocar a la función RxSqlServerData, debe abrir la conexión con rxOpen para poder realizar operaciones en la base de datos.

Después de la preparación del código

En la versión actualizada, la primera línea define el nombre de la función. El código restante de la solución original de R se convierte en una parte de esa función.

myetl1function <- function() { 
   sqlConnFrom <- "Driver={ODBC Driver 13 for SQL Server};Server=MyServer01;Database=Airline01;Trusted_Connection=Yes;"
   sqlConnTo <- "Driver={ODBC Driver 13 for SQL Server};Server=MyServer02;Database=Airline02;Trusted_Connection=Yes;"
    
   sqlQueryAirline <- "SELECT TOP 10000 ArrDelay, CRSDepTime, DayOfWeek FROM [AirlineDemoSmall]"

   dsSqlFrom <- RxSqlServerData(sqlQuery = sqlQueryAirline, connectionString = sqlConnFrom)
  
   dsSqlTo <- RxSqlServerData(table = "cleanData", connectionString = sqlConnTo)
  
   xFunc <- function(data) {
     data$CRSDepHour <- as.integer(trunc(data$CRSDepTime))
     return(data)}
  
   xVars <- c("CRSDepTime")
  
   sqlCompute <- RxInSqlServer(numTasks = 4, connectionString = sqlConnTo)
  
   if (rxSqlServerTableExists("cleanData", connectionString = sqlConnTo)) {rxSqlServerDropTable("cleanData")}
  
   rxDataStep(inData = dsSqlFrom, 
        outFile = dsSqlTo,
        transformFunc = xFunc,
        transformVars = xVars,
        overwrite = TRUE)
   return(NULL)
}

Nota

Aunque no es necesario abrir la conexión ODBC de forma explícita como parte del código, se sigue necesitando una conexión ODBC para usar sqlrutils.

Consulte también

Referencia de sqlrutils