courses.Rmd

---
title: "MEDS Course Timeline and Descriptions"
output:
  distill::distill_article:
    toc: true
    toc_float: true
editor_options: 
  chunk_output_type: console
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(googlesheets4)
library(kableExtra)
library(tidyverse)
library(here)

courses <- googlesheets4::read_sheet("https://docs.google.com/spreadsheets/d/1uVKAYahg0z07gcafI7Gcb7ClOrJg0abuOGHrpyy_7BE/edit#gid=0") # Request access from Sam or Jamie to update this sheet

summer <- courses %>%
  filter(quarter == "Summer") %>%
  select(-quarter) %>%
  write_csv(here("course_description_files", "summer.csv"))

fall <- courses %>%
  filter(quarter == "Fall") %>%
  select(-quarter) %>%
  write_csv(here("course_description_files", "fall.csv"))

winter <- courses %>%
  filter(quarter == "Winter") %>%
  select(-quarter) %>%
  write_csv(here("course_description_files", "winter.csv"))

spring <- courses %>%
   filter(quarter == "Spring") %>%
   select(-quarter) %>%
   write_csv(here("course_description_files", "spring.csv"))

summer <- read_csv(here("course_description_files", "summer.csv"))
fall <- read_csv(here("course_description_files", "fall.csv"))
winter <- read_csv(here("course_description_files", "winter.csv"))
spring <- read_csv(here("course_description_files", "spring.csv"))
```

## Summer Intensive Courses

All MEDS students will complete 12 units of intensive coursework (early August through mid-September) to start the program. Summer courses will be held at the National Center for Ecological Analysis and Synthesis (NCEAS) in downtown Santa Barbara.

```{r, echo = FALSE}
# Update 212 title cell (w/ link)
summer[1,2] <- cell_spec("Essential Math for Environmental Data Science",  "html", link = "https://allisonhorst.github.io/EDS_212_essential-math/")

# Update 221 title cell (w/ link)
summer[2,2] <- cell_spec("Scientific Programming Essentials",  "html", link = "https://allisonhorst.github.io/EDS_221_programming-essentials/")

# Update 212 title cell (w/ link)
summer[3,2] <- cell_spec("Analytical Workflows and Scientific Reproducibility",  "html", link = "https://brunj7.github.io/EDS-214-analytical-workflows/")

# Update 217 title cell (w/ link)
summer[4,2] <- cell_spec("Python for Environmental Data Science",  "html", link = "https://github.com/environmental-data-science/eds-217")

summer %>%
  kable(col.names = c("Course number", "Course title", "Units", "Description", "Instructor"), format = "html", escape = FALSE) %>%
  kable_styling(bootstrap_options = "striped") %>%
  kableExtra::row_spec(1:4, extra_css = "border-bottom: 1px solid gainsboro") %>%
  scroll_box(width = "100%", height = "600px")
```

</br>

## Fall Quarter

**Note:** Fall, Winter and Spring courses will utilize both of the MEDS campuses (UC Santa Barbara and NCEAS), which are ~11 miles (~20 minutes driving, ~30 minutes by bus) apart from each other. Students will only ever have planned activities at one of the campus locations on any given day. 

```{r, echo = FALSE}
# Update 220 title cell (w/ link)
fall[1,2] <- cell_spec("Working with Environmental Datasets",  "html", link = "https://carmengg.github.io/eds-220-book/")

# Update 222 title cell (w/ link)
fall[2,2] <- cell_spec("Statistics for Environmental Data Science",  "html", link = "https://tcarleton.github.io/EDS-222-stats/")

# Update 223 title cell (w/ link) 
 fall[3,2] <- cell_spec("Geospatial Analysis & Remote Sensing",  "html", link = "https://ryoliver.github.io/EDS_223_spatial_analysis/")


fall %>% 
  kable(col.names = c("Course number", "Course title", "Units", "Description", "Instructor"), format = "html", escape = FALSE) %>% 
  kableExtra::kable_styling() %>% 
  kableExtra::row_spec(1:4, extra_css = "border-bottom: 1px solid gainsboro") %>% 
  scroll_box(width = "100%", height = "600px")
```

</br>

## Winter Quarter

```{r, echo = FALSE}
# Update 232 title cell (w/ link)
winter[1,2] <- cell_spec("Machine Learning in Environmental Science",  "html", link = "https://maro406.github.io/eds-232-machine-learning/")

# Update 411 title cell (w/ link)
winter[2,2] <- cell_spec("Data Visualization & Communication", "html", link = "https://samanthacsik.github.io/EDS-240-data-viz/")

# Update 411 title cell (w/ link)
winter[4,2] <- cell_spec("MEDS Capstone Course", "html", link = "https://carmengg.github.io/eds-411-website/")

winter %>% 
  kable(col.names = c("Course number", "Course title", "Units", "Description", "Instructor"), format = "html", escape = FALSE) %>% 
  kableExtra::kable_styling() %>% 
  kableExtra::row_spec(1:4, extra_css = "border-bottom: 1px solid gainsboro") %>% 
  scroll_box(width = "100%", height = "600px")
```

</br>

## Spring Quarter

```{r, echo = FALSE}

# Update 213 title cell (w/ link)
spring[1,2] <- cell_spec("Databases and Data Management", "html", link = "https://ucsb-library-research-data-services.github.io/bren-meds213-spring-2024/")

# Update 230 title cell (w/ link)
spring[2,2] <- cell_spec("Modeling Environmental Systems", "html", link = "https://naomitague.github.io/ESM232_course/")

# Update 231 title cell (w/ link)
spring[3,2] <- cell_spec("Text and Sentiment Analysis for Environmental Problems", "html", link = "https://maro406.github.io/EDS-231-text-sentiment/")

# Update 411 title cell (w/ link)
spring[4,2] <- cell_spec("MEDS Capstone Course", "html", link = "https://carmengg.github.io/eds-411-website/")

spring %>% 
  kable(col.names = c("Course number", "Course title", "Units", "Description", "Instructor"), format = "html", escape = FALSE) %>% 
  kableExtra::kable_styling() %>% 
  kableExtra::row_spec(1:4, extra_css = "border-bottom: 1px solid gainsboro") %>% 
  scroll_box(width = "100%", height = "600px")
```