library(cli)
library(rlang)assert1 <- function(x, y, arg = caller_arg(x)) {
if (!inherits(x, y)) {
abort(format_error("{.strong {arg}} must be of class {y}"))
}library(cli)
library(rlang)assert1 <- function(x, y, arg = caller_arg(x)) {
if (!inherits(x, y)) {
abort(format_error("{.strong {arg}} must be of class {y}"))
}| library(DBI) | |
| library(RPostgres) | |
| library(dplyr) | |
| library(dbplyr) | |
| con <- dbConnect(Postgres()) | |
| dbExecute(con, "CREATE ROLE admin") | |
| dbExecute(con, "CREATE ROLE alice") |
| library(shiny) | |
| library(bslib) | |
| library(ggplot2) | |
| ui <- page_sidebar( | |
| title = h1( | |
| class = "bslib-page-title", | |
| "Errors when bins == 29" | |
| ), |
The function modified
multiplot <- function(..., plotlist=NULL, file, cols=1, layout=NULL,
labs=list(), labpos=list(c(0.5,0.03), c(0.03,0.5))) {
require(grid)
# Make a list from the ... arguments and plotlist
plots <- c(list(...), plotlist)
| ####################################################### | |
| #### Created by Rolf Lohaus, EEB Dept., Rice University | |
| #### | |
| #### Part of the code modified and extended from | |
| #### Robert I. Kabacoff's Quick-R website | |
| #### (http://www.statmethods.net) | |
| ####################################################### | |
| ############### HIGH-LEVEL PLOTTING FUNCTIONS ############### |