Nothing
context("line_plot")
test_that("line_plot works", {
g = line_plot(mtcars, "cyl", "1")
expect_equal(g[["data"]][["x"]], c(4, 6, 8))
expect_equal(g[["data"]][["y"]], c(11, 7, 14))
expect_equal(names(g[["data"]]), c("x", "y"))
})
test_that("multiple y works", {
g = line_plot(mtcars, "cyl", c("1", "am"))
expect_equal(g[["data"]][["x"]], c(4, 6, 8, 4, 6, 8))
expect_equal(g[["data"]][["group"]], factor(c("1", "1", "1",
"am", "am", "am"),
c("1", "am")))
expect_equal(g[["data"]][["y"]], c(11, 7, 14, 8, 3, 2))
expect_equal(names(g[["data"]]), c("x", "group", "y"))
})
test_that("special case x-axes work", {
g = line_plot(tsibbledata::gafa_stock, "Date", "High", yoy = TRUE)
expect_true(all(g[["data"]][["x"]] <= 366))
expect_true(all(g[["data"]][["x"]] >= 1))
g = line_plot(tsibbledata::gafa_stock, "Symbol", "Open")
expect_equal(g[["data"]][["x"]], factor(c("AAPL", "AMZN", "FB", "GOOG")))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.