R/view_section_spreadsheet.R

Defines functions view_section_spreadsheet_200 view_section_spreadsheet_180 view_section_spreadsheet

Documented in view_section_spreadsheet view_section_spreadsheet_180 view_section_spreadsheet_200

#' Open the Google Sheet for a BIO 180/200 section
#'
#' @inheritParams build_section_spreadsheet_title
#'
#' @export
#'
#' @examples
#' \dontrun{
#' view_section_spreadsheet(course = 180, year = 2017, quarter = "AU", section = "C")
#' }
view_section_spreadsheet <- function(course, year, quarter, section) {
    section_title <- build_section_spreadsheet_title(
        course = course,
        year = year,
        quarter = quarter,
        section = section
    )
    googlesheets::gs_browse(googlesheets::gs_title(section_title))
}


#' @rdname view_section_spreadsheet
#' @export
view_section_spreadsheet_180 <- function(year, quarter, section) {
    view_section_spreadsheet(
        course = 180,
        year = year,
        quarter = quarter,
        section = section
    )
}


#' @rdname view_section_spreadsheet
#' @export
view_section_spreadsheet_200 <- function(year, quarter, section) {
    view_section_spreadsheet(
        course = 200,
        year = year,
        quarter = quarter,
        section = section
    )
}
KerrLab/introbiocure documentation built on Sept. 24, 2017, 3:29 a.m.