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))
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.