R/CourseInfo.R

In davidmeza1/MezaEdD:

library(xml2)
library(rvest)
library(dplyr)

## Gets the Plan of Study and Course information from UHCL website

url <- "http://prtl.uhcl.edu/portal/page/portal/SOE/Programs/EDD_CandI/Plan_of_Study/"
url2 <- "http://prtl.uhcl.edu/portal/page/portal/SOE/Programs/EDD_CandI/Courses/"

plan_of_study <- url %>%
  read_html() %>%
  html_nodes(xpath = '//*[@id="rg1552745"]') %>%
  html_table(fill = TRUE)
plan_of_study <- plan_of_study[[1]]
plan_of_study <- plan_of_study[-1, 1:3]
colnames(plan_of_study) <- (plan_of_study[1,])
plan_of_study <- plan_of_study[-1, 1:3]
plan_of_study$semester <- NA
plan_of_study$year  <- NA
save(plan_of_study, file = "data/plan_of_study.Rdata")

# Update Row
update_plan <- function(class, term, yr){
  plan_of_study <<- mutate(plan_of_study, semester = ifelse(`Prefix/No.` == class, term, semester),
                          year = ifelse(`Prefix/No.` == class, yr, year))
}

class <- c("EDCI 7034", "EDCI 7430")
update_plan("EDCI 7430", "Fall", 2016)

plan_of_study %>%
  filter(!is.na(semester)) %>%
  arrange(semester, desc(year))



courses <- url2 %>%
  read_html() %>%
  html_nodes(xpath = '//*[@id="rg1552745"]') %>%
  html_text()

courses1 <- as.data.frame(courses)

#Prints out text
cat(paste(courses, collapse = "\n"))