tests/testthat/test_faculty_fetch.R

In PhilBrockman/WilliamsStaff: Williams Staff

library(tm)

context("letting faculty fetch fetch faculty")

#these work
# years <- 2000:2001
# years <- 2010:2013
# years <- 2012:2012
#
# test_that("collecting faculties is functioning as expected", {
#   if(length(years) > 0){
#     for(year in years){
#       faculty = collect_faculty(year)
#       print("<><><><><>")
#       print(paste0(year, " :: ", length(faculty)))
#       print("-------------")
#       print(faculty[1])
#       # print((faculty[1]))
#       print("<><><><><><")
# #       foo <- sapply(faculty[1:4], function(row) general_format(row, year))
# #       print(general_format(faculty[1], year))
#
#       # print((min(sapply(faculty, nchar)))) # works for years <- 2010:2013
#     }
#   }
# #   print("-------------")
# #   f = collect_faculty(2012)
# #   print(f[340])
# #   print(f[341])
# })
#
# test_that("multi lines are being collapsed",{
# #   f = collect_faculty(2010)
# #   devyn = f[19]
# #   brooks = f[28]
# #   print(is_this_a_professor(devyn))
# #   print(is_this_a_professor(brooks))
# })