tests/testthat/test-get_post-comment.R

In liao961120/pttR: Retrieve and Process Textual Data from PTT

context("get_post() list column test")

## Helper Function: eval string as object
eval_str <- function(str) eval(parse(text = str))

url <- "https://www.ptt.cc/bbs/Gossiping/M.1545099143.A.15D.html"
df0 <- get_post(url)
df1 <- get_post(url, board_col = T)

test_that("dimension of get_post()",{
  expect_equal(ncol(df0) + 1, ncol(df1))
  expect_equal(nrow(df1), 1)
  expect_true(nrow(df0) == nrow(df1))
})

ls <- paste0(c("df0", "df1"), "$comment[[1]]")
ls <- sample(ls, 1)
cmt_df <- eval_str(ls)

test_that("comment list column structure", {
  expect_true("data.frame" %in% class(cmt_df))
  expect_true("POSIXct" %in% class(cmt_df$time))
})