R/view_section_spreadsheet.R

In KerrLab/introbiocure: Tools for Managing BIO 180 and BIO 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
    )
}