R/updateproj.R

In jinyung/otolith: Identification of fish otolith using digital images

#' Update the project
#' 
#' @description update the project previously saved using \code{\link{saveproj}}
#' @param name character. file name of the project to be updated. if not given, 
#'  interactive file chooser will appear (for Windows)
#' @inheritParams saveproj 
#' @return the selected values are updated (overwrited) with the new addtions.
#' @details the objects assigned with new values will be overwrited with new ones,
#'  the rest will remain the same.
#' @note the current version only support overwrite(!), not append.  
#' @seealso 
#'  \code{\link{saveproj}}, \code{\link{readRDS}}
#' @export

updateproj <- function(name, landmark = NULL, des = NULL, gpa = NULL, 
                       nef = NULL, pc = NULL, har=NULL, class = NULL) {
  if (missing(name)) {
    if (Sys.info()['sysname'] == "Windows") {
      name <- choose.files(default = getwd(), multi=FALSE, 
                 filters = c("RDS file(*.rds)", "*.rds; *.RDS"), 
                 caption = "Select the project .rds file to be updated")
    } else {
      stop("you need to provide path or file name of the project you wish to update")
    }
  }
  temp <- readRDS(name)
  if (is.null(landmark)) landmark <- temp$landmark
  if (is.null(des)) des <- temp$des
  if (is.null(gpa)) gpa <- temp$gpa
  if (is.null(nef)) nef <- temp$nef
  if (is.null(pc)) pc <- temp$pc
  if (is.null(har)) har <- temp$har
  if (is.null(class)) class <- temp$class
  temp2 <- list (landmark=landmark, des=des, nef=nef, gpa=gpa, pc=pc, 
           har=har, class=des$sp)
  saveRDS(temp2, file=paste0(name))
  cat("The updated project is saved at:", 
      paste(name, sep="/"),"\n\n")
}