#' @export
dbListViews <- function(dbconn, ...) {
outputFunProc(R)
out <- dbGetQuery(dbconn, "SELECT viewname
FROM pg_views
WHERE schemaname !='information_schema' AND
schemaname !='pg_catalog'", ...)
if (is.null(out) || nrow(out) == 0) out<-character(0)
else out <- out[, 1]
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.