tests/testthat/test-mplot_list.R

In itsaquestion/TPlot: What the Package Does (One Line, Title Case)

context("test-mxplot_list")


test_that("multiplication works", {

  library(xts)
  library(checkmate)
  #library(purrr)
  library(ggplot2)
  library(directlabels)
  library(ggpubr)

  date_1 = seq(as.Date("2000-01-01"),as.Date("2000-01-10"),"days")

  df_1 = data.frame(a=1:10,b=((2:11) - 0.9)) - 1
  x = xts::as.xts(df_1+10, order.by = date_1)
  y = xts::as.xts(df_1, order.by = date_1  + 5)
  z = x
  names(z) = c("1a","2b")
  
  mxplot(x, y,heights = c(2,1),size = 2)

  mxplot(z)

  p1 = ggxts(x)
  p2 = ggxts(y$a)

  mxplot(p1,p2,heights = c(1,2),size = 10)

  #egg::ggarrange(plots = list(p1,p2),heights=NULL)

  plots = list(p2,p1)
  mxplot(plots = plots,heights = c(1,2))


  mxplotList(list(p1,p2),theme=theme_textbook())
  expect_class(p1,"gg")

  a = mxplot(p1,p2,p1,heights = c(2,1,1))

  vlines = c("2000-01-05","2000-01-13")
  mxplot(p1,p2,vlines = vlines)
  
  
  mxplot(p1,p2,theme=theme_textbook(),xfrom = '2000-01-05')
  mxplot(p1,p2,theme=theme_textbook(),xto = '2000-01-10')
  mxplot(p1,p2,theme=theme_textbook(),xfrom = '2000-01-03', xto = '2000-01-07')
  
})