Nothing
## ----echo = FALSE, message = FALSE--------------------------------------------
library(SqlRender)
## ----echo=TRUE----------------------------------------------------------------
sql <- "SELECT * FROM table WHERE id = @a;"
render(sql, a = 123)
## ----echo=TRUE----------------------------------------------------------------
sql <- "SELECT * FROM @x WHERE id = @a;"
render(sql, x = "my_table", a = 123)
## ----echo=TRUE----------------------------------------------------------------
sql <- "SELECT * FROM table WHERE id IN (@a);"
render(sql, a = c(1,2,3))
## ----echo=TRUE----------------------------------------------------------------
sql <- "{DEFAULT @a = 1} SELECT * FROM table WHERE id = @a;"
render(sql)
render(sql, a = 2)
## ----echo=TRUE----------------------------------------------------------------
sql <- "{DEFAULT @a = 1} {DEFAULT @x = 'my_table'} SELECT * FROM @x WHERE id = @a;"
render(sql)
## ----echo=TRUE----------------------------------------------------------------
sql <- "SELECT * FROM table {@x} ? {WHERE id = 1}"
render(sql, x = FALSE)
render(sql, x = TRUE)
## ----echo=TRUE----------------------------------------------------------------
sql <- "SELECT * FROM table {@x == 1} ? {WHERE id = 1};"
render(sql, x = 1)
render(sql, x = 2)
## ----echo=TRUE----------------------------------------------------------------
sql <- "SELECT * FROM table {@x IN (1,2,3)} ? {WHERE id = 1};"
render(sql, x = 2)
## ----echo=TRUE----------------------------------------------------------------
sql <- "SELECT * FROM table {@x IN (1,2,3) | @y != 3} ? {WHERE id = @x AND value = @y};"
render(sql, x = 4, y = 4)
sql <- "SELECT * FROM table {(@x == 1 | @x == 3) & @y != 3} ? {WHERE id = @x AND val = @y};"
render(sql, x = 3, y = 4)
## ----echo=TRUE----------------------------------------------------------------
sql <- "SELECT DATEDIFF(dd,a,b) FROM table; "
translate(sql,targetDialect = "oracle")
## ----echo=FALSE---------------------------------------------------------------
funs <- c("ABS", "ACOS", "ASIN", "ATAN", "AVG", "CAST", "CEILING", "CHARINDEX", "CONCAT", "COS", "COUNT", "COUNT_BIG", "DATEADD", "DATEDIFF", "DATEFROMPARTS", "DATETIMEFROMPARTS", "DAY", "EOMONTH", "EXP", "FLOOR", "GETDATE", "HASHBYTES*", "IIF", "ISNULL", "ISNUMERIC", "LEFT", "LEN", "LOG", "LOG10", "LOWER", "LTRIM", "MAX", "MIN", "MONTH", "NEWID", "PI", "POWER", "RAND", "RANK", "RIGHT", "ROUND", "ROW_NUMBER", "RTRIM", "SIN", "SQRT", "SQUARE", "STDEV", "SUM", "TAN", "UPPER", "VAR", "YEAR", "")
knitr::kable(matrix(funs, ncol = 4), col.names = rep("Function",4), caption = "Functions supported by translate")
## ----echo=TRUE----------------------------------------------------------------
sql <- "SELECT * FROM #children;"
translate(sql, targetDialect = "oracle", tempEmulationSchema = "temp_schema")
## ----echo=TRUE, eval=FALSE----------------------------------------------------
# options(sqlRenderTempEmulationSchema = "temp_schema")
## ----echo=TRUE----------------------------------------------------------------
foo <- function(databaseSchema, dbms) {
database <- strsplit(databaseSchema ,"\\.")[[1]][1]
sql <- "SELECT * FROM @databaseSchema.person; USE @database; SELECT * FROM person;"
sql <- render(sql, databaseSchema = databaseSchema, database = database)
sql <- translate(sql, targetDialect = dbms)
return(sql)
}
foo("cdm_data.dbo", "sql server")
foo("cdm_data", "postgresql")
## ----eval=FALSE---------------------------------------------------------------
# launchSqlRenderDeveloper()
## ----eval=FALSE---------------------------------------------------------------
# renderSqlFile("parameterizedSql.txt","renderedSql.txt")
## ----eval=FALSE---------------------------------------------------------------
# createRWrapperForSql(sqlFilename = "test.sql",
# rFilename = "test.R",
# packageName = "myPackage")
## ----eval=FALSE---------------------------------------------------------------
# #' Todo: add title
# #'
# #' @description
# #' Todo: add description
# #'
# #' @details
# #' Todo: add details
# #'
# #' @param connectionDetails An R object of type \code{ConnectionDetails} created ...
# #' @param selectedValue
# #'
# #' @export
# test <- function(connectionDetails,
# selectedValue = 1) {
# renderedSql <- loadRenderTranslateSql("test.txt",
# packageName = "myPackage",
# dbms = connectionDetails$dbms,
# selected_value = selectedValue)
# conn <- connect(connectionDetails)
#
# writeLines("Executing multiple queries. This could take a while")
# executeSql(conn,renderedSql)
# writeLines("Done")
#
# dummy <- dbDisconnect(conn)
# }
#
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.