plotly-master/tests/testthat/test-plotly-filename.R

context("Filename")

test_that("filepath with directories is returned as passed", {
  skip_on_cran()
  skip_on_pull_request()
  p <- plot_ly(mtcars, x = ~wt, y = ~vs)
  f <- plotly_POST(p, filename = "directory/awesome")
  expect_match(f$filename, "directory/awesome")
})
franciscorichter/dmea documentation built on May 16, 2019, 1:54 p.m.