R/rb_add_folder_to_cache.R

In giocomai/rbackupr: An R package to backup folders to Google Drive with limited permissions

#' Add folder to cache
#'
#' @param dribble A dribble.
#' @param parent_id Identifier of the parent folder.
#' @param relative_path Path relative to base folder.
#' @param project Defaults to NULL. Can be set once per session with
#'   `rb_get_project_name()`. If given, must be a character vector of length
#'   one: name of the project.
#'
#' @return
#' @export
#'
#' @examples
rb_add_folder_to_cache <- function(dribble,
                                   parent_id,
                                   relative_path,
                                   project = NULL,
                                   cache = TRUE) {
  project <- rb_get_project_name(project = project)

  table_name <- rb_get_cache_table_name(type = stringr::str_c("folders_", project))

  new_folder_for_cache_df <- dribble %>%
    dplyr::select(.data$name, .data$id) %>%
    dplyr::mutate(
      parent_id = parent_id,
      relative_path = relative_path
    )

  if (cache == FALSE) {
    return(new_folder_for_cache_df)
  }

  db_connection <- RSQLite::dbConnect(
    drv = RSQLite::SQLite(),
    rb_get_cache_file()
  )

  db_table_exists_v <- RSQLite::dbExistsTable(
    conn = db_connection,
    name = table_name
  )

  if (nrow(new_folder_for_cache_df) > 0) {
    if (db_table_exists_v == FALSE) {
      RSQLite::dbWriteTable(
        conn = db_connection,
        name = table_name,
        value = new_folder_for_cache_df
      )
    } else {
      RSQLite::dbAppendTable(
        conn = db_connection,
        name = table_name,
        value = new_folder_for_cache_df
      )
    }
  }

  RSQLite::dbDisconnect(conn = db_connection)

  new_folder_for_cache_df
}