Student_projects.Rmd

---
title: "Virtual Poster Session"
output:
  html_document:
    toc: false
---
 
This course uses a combination of lecture and hands-on exercises to provide a gentle introduction to programming in R with a focus on spatial data processing. The [final project](Project.html) in the course is the construction of a reproducible research workflow.

Each student wrote a script (using the [R](https://www.r-project.org/) programming language) to perform these steps and generate a website showcasing their analysis. The focus of the course is on the design and implementation of the complete data processing research workflow itself (not any particular statistics/methods/models). The challenge is to string all the steps together in a _coherent, reproducible flow from raw data to final outputs_.  

## Student Project Gallery

You are invited to explore the student projects below (click on a title to visit their website).  Each projects includes the embedded code in addition to their narrative and graphical stories.   If you find something interesting, you are free to download and re-run the script to reproduce the entire analysis (including generating the tables/figures and even the webpage itself).

## 2020
```{r,echo=F, warning=F, message=F, eval=T}
library(tidyverse)
library(knitr)
library(rvest)
library(fontawesome)

update=F

if(update){
d=data.frame(url=
  paste0("https://geo511-2020.github.io/",c(
  "geo511-2020-project-btkunz",
  "geo511-2020-project-smnotaro",
  "geo511-2020-project-erikwoyc",
  "geo511-2020-project-tingtchang",
  "geo511-2020-project-hsare",
  "geo511-2020-project-lazin-buff",
  "geo511-2020-project-Zixuan0127",
  "geo511-2020-project-ZaqueEvans",
  "geo511-2020-project-BoweiZhao",
  "geo511-2020-project-shruti8297",
  "geo511-2020-project-BhavanaPoladi",
  "geo511-2020-project-coconn41",
  "geo511-2020-project-WeishanBai",
  "geo511-2020-project-mahmoodkaiser",
  "geo511-2020-project-betsymccall"
  )),
  group=c(rep(1,6),rep(2,9)),
  stringsAsFactors = F)

d=d%>%mutate(user=sub("/","",
      sub("https://geo511-2020.github.io/geo511-2020-project-","",url,
                          ignore.case = T)),
      github=paste0("https://github.com/geo511-2019/2019-geo511-project-",
                   user))
for(i in 1:nrow(d)) {
#  print(i)
  d$title[i] <- ifelse(
    is.na(tryCatch(read_html(d$url[i], verbose=T), 
                   error = function(e){NA})),
         NA,
         read_html(d$url[i]) %>% html_nodes("h1")%>%html_text()%>%first()
  )
}
save(d,file="2020_Student_projects_data.Rdata")
}
```


```{r, echo=F, message=F, results='hide', eval=T}
load("2020_Student_projects_data.Rdata")
```


```{r,asis=T, echo=F, eval=T}
d%>%
  arrange(group,user)%>%
  mutate(Title=paste0("[",title,"](",url,")")) %>%
#         GitHub=paste("<a href=",github,"><i>",fa('github',fill ="#2780E3"),"</i></a>"))%>%
  dplyr::select(Student=user,Title, group)%>%
  kable()
```


## 2019
```{r,echo=F, warning=F, message=F, eval=T, results="hide"}
update=F

if(update){
d=data.frame(url=
  paste0("https://geo511-2019.github.io/",c(
  "2019-geo511-project-AJKlisavage",
  "2019-geo511-project-anuwatpe",
  "2019-geo511-project-austin3087",
  "2019-geo511-project-davidjtor",
  "2019-geo511-project-jpreg",
  "2019-geo511-project-gbream",
  "2019-geo511-project-katlynse",
  "2019-geo511-project-hsare",
  "2019-geo511-project-kli57",
  "2019-geo511-project-mitchhitch-1",
  "2019-geo511-project-moiraone",
  "2019-geo511-project-mimonzil",
  "2019-geo511-project-oliviadelos2",
  "2019-geo511-project-Stella-Liao",
  "2019-geo511-project-zolal-ayazpour",
  "2019-geo511-project-yliu282"
  )),
  group=c(rep(1,7),rep(2,9)),
  stringsAsFactors = F)

d=d%>%mutate(user=sub("/","",
      sub("https://geo511-2019.github.io/2019-geo511-project-","",url,
                          ignore.case = T)),
      github=paste0("https://github.com/geo511-2019/2019-geo511-project-",
                   user))
for(i in 1:nrow(d)) {
  print(i)
  d$title[i] <- ifelse(
    is.na(tryCatch(read_html(d$url[i], verbose=T), 
                   error = function(e){NA})),
         NA,
         read_html(d$url[i]) %>% html_nodes("h1")%>%html_text()%>%first()
  )
}

save(d,file="2019_Student_projects_data.Rdata")
}
```


```{r, echo=F, message=F, results='hide', eval=T}
load("2019_Student_projects_data.Rdata")
```

```{r,asis=T, echo=F, eval=T}
d%>%
  arrange(user)%>%
#  filter(group==1)%>%
  mutate(Title=paste0("[",title,"](",url,")")) %>% 
#         GitHub=paste("<a href=",github,"><i>",fa('github',fill ="#2780E3"),"</i></a>"))%>%
  dplyr::select(Student=user,Title, group)%>%
  kable()
```



## 2018

```{r,echo=F, warning=F, message=F, eval=T, results="hide"}
if(update){

  d_2018=data.frame(url=c(
#  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-dnkarp/",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-YingLuGit/",
#  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-EllieGaiser",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-Jim-King/",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-nathandubinin/",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-matthewamoia/",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-seankono/",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-acerpovicz/",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-JonathanMLynch/",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-Katie-M-Walsh",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-zero12r",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-Nino-Martinez/",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-allisonleet",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-jiyuanzh",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-sunjiazh",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-zhang224",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-hkhorasani",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-Henryxie1003",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-Canacelqr",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-talentstuder",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-wwang52",
  "https://adamwilsonlabedu.github.io/geo503-2018-finalproject-HamedGhodsi90"
  ),
  stringsAsFactors = F)

d_2018=d_2018%>%mutate(user=sub("/","",
                      sub("https://adamwilsonlabedu.github.io/geo503-2018-finalproject-","",url,
                          ignore.case = T)))
for(i in 1:nrow(d_2018)) {
 print(i)
  d_2018$title[i] <- ifelse(
    is.na(tryCatch(read_html(d_2018$url[i], verbose=T), 
                   error = function(e){NA})),
         NA,
         read_html(d_2018$url[i]) %>% html_nodes("h1")%>%html_text()%>%first()
  )
}

save(d_2018,file="2018_Student_projects_data.Rdata")
}

```

```{r,asis=T, echo=F, eval=T}
load("2018_Student_projects_data.Rdata")

d_2018%>%
  arrange(user)%>%
#  filter(group==1)%>%
  mutate(Title=paste0("[",title,"](",url,")"))%>%
  dplyr::select(Student=user,Title)%>%
  kable()
```