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