Nothing
#' buildQueryCountNull
#'
#' @param conn.info Connection info created with \code{\link{prepareConnection}}
#' @param ... Other parameters
#'
#' @return query select count(*) where collumn is null
buildQueryCountNull <- function(conn.info, ...){
UseMethod("buildQueryCountNull", conn.info)
}
#' buildQueryCountNull.sqlite
#'
#' @param conn.info Connection info created with \code{\link{prepareConnection}}
#' @param schema Table Schema
#' @param table Table Name
#' @param column Column profiled
#' @param query.filter Filter applied to the profile
#' @param ... Other parameters
#'
#' @return query select count(*) where collumn is null
#' @noRd
buildQueryCountNull.sqlite <- function(conn.info, schema, table,
column, query.filter, ...){
if (is.na(query.filter)){
query <- paste("SELECT COUNT(*) FROM", table,
"WHERE", escapeSQLite(column), "IS NULL" )
} else {
query <- paste("SELECT COUNT(*) FROM", table,
"WHERE", escapeSQLite(column), "IS NULL",
"AND", query.filter)
}
return(query)
}
#' buildQueryCountNull.teradata
#'
#' @param conn.info Connection info created with \code{\link{prepareConnection}}
#' @param schema Table Schema
#' @param table Table Name
#' @param column Column profiled
#' @param query.filter Filter applied to the profile
#' @param ... Other parameters
#'
#' @return query select count(*) where collumn is null
#' @noRd
buildQueryCountNull.teradata <- function(conn.info,
schema,
table,
column,
query.filter,
...){
# Concat schema and table
schema.table <- paste0(trimws(schema), ".", table)
if (is.na(query.filter)){
query <- paste("SELECT COUNT(*) FROM", schema.table,
"WHERE", column, "IS NULL" )
} else {
query <- paste("SELECT COUNT(*) FROM", schema.table,
"WHERE", column, "IS NULL",
"AND", query.filter)
}
return(query)
}
#' buildQueryCountNull.sqlserver
#'
#' @param conn.info Connection info created with \code{\link{prepareConnection}}
#' @param schema Table Schema
#' @param table Table Name
#' @param column Column profiled
#' @param query.filter Filter applied to the profile
#' @param ... Other parameters
#'
#' @return query select count(*) where collumn is null
#' @noRd
buildQueryCountNull.sqlserver <- function(conn.info, schema, table,
column, query.filter, ...){
# Concat schema and table
schema.table <- paste0(trimws(schema), ".", table)
if (is.na(query.filter)){
query <- paste("SELECT COUNT(*) FROM", schema.table,
"WHERE", column, "IS NULL" )
} else {
query <- paste("SELECT COUNT(*) FROM", schema.table,
"WHERE", column, "IS NULL",
"AND", query.filter)
}
return(query)
}
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.