# utility functions
# Not in operator
'%!in%' <- function(x,y)!('%in%'(x,y))
# Defaults for NULL values
'%||%' <- function(a, b) if (is.null(a)) b else a
#' @import raster ggplot2 methods
#' @importFrom deSolve lsoda
#' @importFrom data.table data.table rbindlist fread setnames
#' @importFrom dplyr %>% mutate filter_ summarise_ ungroup group_by_ quo mutate_ starts_with
#' @importFrom mixtools spEMsymloc
#' @importFrom graphics par mtext title
#' @importFrom grDevices colorRampPalette dev.print dev.off png
#' @importFrom stats median
#' @importFrom rgdal readOGR
#' @importFrom utils data read.csv
#' @importFrom plyr ddply
#' @importFrom rlang .data
NULL
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.