R/lecture_notes.R

In whtns/stchlk.notes:

#' Load Keywords List
#'
#' @return
#' @export
#'
#' @examples
loadkey <- function(lecture_dir){
  assign("lecture_dir", lecture_dir, envir = .GlobalEnv)
  keywords_path <- paste0(lecture_dir, "/keywords.rds")
  if (file.exists(keywords_path)){
    keywords <- readRDS(paste0(lecture_dir, "/keywords.rds"))
    assign("keywords", keywords, envir = .GlobalEnv)
  } else {
    keywords <- list()
    assign("keywords", keywords, envir = .GlobalEnv)

  }
}

#' Save Keywords List
#'
#' @return
#' @export
#'
#' @examples
savekey <- function(){
  saveRDS(keywords, paste0(lecture_dir, "/keywords.rds"))
}

#' Add New Keyword and Save
#'
#'
#' @param newkey
#' @param newval
#'
#' @return
#' @export
#'
#' @examples
ak <- function(newkey, newval){
  newkey <- as.character(substitute(newkey))
  newval <- as.character(substitute(newval))
  if (!newkey %in% names(keywords)) {
    keywords[[newkey]] <- newval
  } else if (newkey %in% names(keywords)){
    keywords[[newkey]] <- glue::glue(keywords[[newkey]], newval, .sep = '. ')
  }
  assign("keywords", keywords, envir = .GlobalEnv)
  savekey()
  print(tail(keywords, n = 2L))
}

#' Add Blank Key(s)
#'
#' @param newkeys
#'
#' @return
#' @export
#'
#' @examples
abk <- function(newkeys){
  for (i in newkeys){
    keywords[[i]] <- ""
  }
  assign("keywords", keywords, envir = .GlobalEnv)
  savekey()
  print(tail(keywords, n = 2L))
}