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 ############### |