asn8

---
title: "Assignment 8"
output: html_document
author: "Ian Ho"
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r}
course_url = "https://www.sfu.ca/outlines.html?2019/spring/stat/240/d100"
course_page = readLines(course_url)
```

Question 1
==========

a
---------

```{r}
heading_index = grep("<h3", course_page)
heading = course_page[heading_index]
heading = gsub("</.*>", "", heading)
heading = gsub("<.*>", "", heading)
heading = gsub("[[:space:]]", "", heading)
heading
```

b
---------

```{r}
course_num_index = grep("<h1 id", course_page)
course_num = course_page[course_num_index]
course_num = gsub("<[^>]*>", "", course_num)
course_num = gsub("\\s{2,}", "", course_num)
course_num
```

c
--------

```{r}
start_index = grep("<h2 id", course_page)
end_index = grep("<h3 id=\"class-number\"", course_page)
course_name = course_page[start_index:end_index]
course_name = paste(course_name,collapse="")
course_name = gsub("<h3.*", "", course_name)
course_name = gsub("<[^>]*>", "", course_name)
course_name = gsub("\\s{2,}", "", course_name)
course_name
```

d
-----------

```{r}
start_index = grep("<h4>Instructor:</h4>", course_page)
end_index = grep("<ul class=\"prereq-line\"", course_page)
name = paste(course_page[start_index:end_index], collapse="")

name = gsub("<br.*", "", name)
name = gsub("<.*/h4>", "", name)
name = gsub("<[^>]*>", "", name)
name = gsub("\\s{2,}", "", name)
name
```

e
------------

```{r}
start_index = grep("<li class=\"course-times\">", course_page)
end_index = grep("<li class=\"exam-times\">", course_page)

time_loc = paste(course_page[start_index:end_index], collapse="")

time_loc = gsub("</li.*", "", time_loc)
time_loc = gsub("<.*/h4>", "", time_loc)
time_loc = gsub("<[^>]*>", "", time_loc)
time_loc = gsub("\\s{2,}", "", time_loc)
time_loc
```