tests/testthat/test-hormaleD.R

In DamonCharlesRoberts/ScrapeCong: Get Tweets from Current Members of the US Congress

context("hormaleD")
library(ScrapeCongress)
<<<<<<< HEAD
<<<<<<< HEAD
<<<<<<< HEAD
consumer_key <- readRDS('~/Desktop/RDS/consumer_key.RDS')
consumer_secret <- readRDS('~/Desktop/RDS/consumer_secret.RDS')
access_token <- readRDS('~/Desktop/RDS/access_token.RDS')
access_token_secret <- readRDS('~/Desktop/RDS/access_token_secret.RDS')
token <- setup_twitter_oauth(consumer_key, consumer_secret, access_token, access_token_secret)
test_that('hormaleD', {
  skip_on_cran()
  testthat::expect_message(hormaleD())
})

test_that('hormaleD', {
  skip_on_cran()
  testthat::expect_warning(hormaleD())
=======

context("hormaleD")
library(ScrapeCongress)
library(rtweet)
test_that('hormaleD', {
  skip_on_cran()
  token <- rtweet::get_token()
  f <- senmaleD()
  expect_message(f, "Check your Data Folder. Function ran successfully")
>>>>>>> parent of 0badd50... Final Changes before CRAN
=======

context("hormaleD")
library(ScrapeCongress)
library(rtweet)
test_that('hormaleD', {
  skip_on_cran()
  token <- rtweet::get_token()
  f <- senmaleD()
  expect_message(f, "Check your Data Folder. Function ran successfully")
>>>>>>> parent of 0badd50... Final Changes before CRAN
=======

context("hormaleD")
library(ScrapeCongress)
library(rtweet)
test_that('hormaleD', {
  skip_on_cran()
  token <- rtweet::get_token()
  f <- senmaleD()
  expect_message(f, "Check your Data Folder. Function ran successfully")
>>>>>>> parent of 0badd50... Final Changes before CRAN
})