| #' Source the R code from an knitr file, optionally skipping plots | |
| #' | |
| #' @param file the knitr file to source | |
| #' @param skip_plots whether to make plots. If TRUE (default) sets a null graphics device | |
| #' | |
| #' @return This function is called for its side effects | |
| #' @export | |
| source_rmd = function(file, skip_plots = TRUE) { | |
| temp = tempfile(fileext=".R") | |
| knitr::purl(file, output=temp) |
| #' ## Storing R Objects in a SQLite Database | |
| #' Two packages we are using. The first is the ```RSQLite``` which will be used to create and manage an in-memory SQLite database. The second is ```igraph``` which I will use to create and visualize a random network. Some of the work I do is on network simulation. I often don't know the metrics I need from a simulated network when it's created, so I want to be able to store the networks that are created so that I can go back later and analyze them. | |
| library(RSQLite) | |
| library(igraph) | |
| #' Create a database in memory. | |
| con <- dbConnect(SQLite(), ":memory:") | |
| #' The table has two columns, an *id* column and a column called *graph* which is a **blob** type. This type just stores binary data. |