Nicholas Potter potterzot

test_that("reprex: clipboard input works", {
  skip_if_no_clipboard()
  clipr::write_clip("1:5") #<- this line hangs
  expect_match(reprex(render = FALSE), "^1:5$", all = FALSE)
})

Output from tests testthat results ================================================================

Given $$X = \mathbb{R}^L$$, for every two bundles $$x, y \in X$$, $$x \succeq y$$ if and only if $$x_k \ge y_k \forall k$$.

a) Preferences are complete if for every two bundles $$x, y \in X$$, either $$x \succeq y$$ or $$x \preceq y$$ or $$x \sim y$$. Consider two bundles $$x,y$$, with $$x_i > y_i$$ and $$x_j < y_j$$. Then $$x \npreceq y$$ and $$x \nsucceq y$$, so they preferences are not complete.

b) Preferences are transitive if for any bundles $$x,y,z \in X$$, if $$x \succeq y$$ and $$y \succeq z$$, then $$x \succeq z$$.

Assume that $$x \succeq y$$ and $$y \succeq z$$. Then by the preference relation above, $$x_k \ge y_k \forall k$$ and $$y_k \ge z_k \forall k$$. Substituting, we can see that $$x_k \ge y_k \ge z_k \Rightarrow x_k \ge z_k \forall k$$, hence $$x \succeq z$$.

This is how I offer a single plot function with options to plot in different libraries. The motivation is that for research projects, sometimes we want an interactive graphic for web pages, but we might also want the same graphic in journal-quality png,svg,jpeg format.

It works well I think, but is there a better way of doing this?

The basic idea is a wrapper function that takes an argument that determines which plotting library to use, something like this:

#' Example plot for this question