Nothing
#' @title RequeteODBCwhere class
#' @note Inherits from RequeteODBC
#' the syntax is where="WHERE ..."
#' and =vector("AND...","AND...")
#' order_by="ORDER BY.."
#' @author Cedric Briand \email{cedric.briand@eptb-vilaine.fr}
#' @slot select "character"
#' @slot where "character"
#' @slot and "vector"
#' @slot order_by "character"
#' @examples
#' object=new("RequeteODBCwhere")
#' @export
setClass(Class="RequeteODBCwhere",
representation= representation(select="character",where="character",and="vector",order_by="character"),
prototype = list(silent=TRUE,open=FALSE),contains="RequeteODBC")
setAs("RequeteODBCwhere","RequeteODBC",function(from,to){
requeteODBC=new("RequeteODBC")
requeteODBC@sql=paste(from@select,from@where,paste(from@and,collapse=" "),from@order_by,";",sep=" ")
requeteODBC@baseODBC=from@baseODBC
requeteODBC@silent=from@silent
# other slots will be filled in by connect
return(requeteODBC)
})
#' connect method loads a request to the database and returns either an error or a data.frame
#'
#' @aliases connect.RequeteODBCwhere
#' @note method modified from v0.2.1240 to use the connect method of the mother class
#' @param object an object of class RequeteODBCwhere
#' @return An object of class RequeteODBCwhere
#' @author Cedric Briand \email{cedric.briand@eptb-vilaine.fr}
#' @examples
#' \dontrun{
#' object<-new("RequeteODBCwhere")
#' object@baseODBC<-baseODBC
#' object@sql<- "select * from t_lot_lot"
#' object@where<-"WHERE lot_tax_code='2038'"
#' object@and<-c("AND lot_std_code='CIV'","AND lot_ope_identifiant<1000")
#' object@order_by<-"ORDER BY lot_identifiant"
#' object<-connect(object)
#' }
setMethod("connect",signature=signature("RequeteODBCwhere"),definition=function(object) {
#.Deprecated(new= "RequeteDBwhere",old="RequeteODBCwhere")
requeteODBC=as(object,"RequeteODBC")
requeteODBC=connect(requeteODBC) # uses mother class method
object@sql=requeteODBC@sql
object@connection=requeteODBC@connection
object@query=requeteODBC@query
object@etat=requeteODBC@etat
return(object)
})
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.