R/saveAs.R

In Ronggui/RQDA: Qualitative Data Analysis

saveAsButt <- function(label=gettext("Save Project As ...", domain = "R-RQDA"), container){
    saveAsB <- gbutton(text=label, container=container, handler=function(h, ...){
        saveAs()
    }
            )
   enabled(saveAsB) <- FALSE
   assign("saveAsB",saveAsB, envir=button)
}

saveAs <- function(newpath=NULL) {
    oldpath <- dbGetInfo(.rqda$qdacon)$dbname
    if (Encoding(oldpath)=="unknown") Encoding(oldpath) <- "UTF-8"
    if (is.null(newpath)) {
        newpath <- gfile(type="save",text = gettext("Type a new file name and click OK.", domain = "R-RQDA"),filter = list("RQDA" = list(patterns = c("*.rqda$"))))
        if (Encoding(newpath) != "UTF-8") Encoding(newpath) <- "UTF-8"
        newpath <- sprintf("%s.rqda", newpath)
    }
    override <- TRUE
    if (fexist <- file.exists(newpath)) {
        override <- gconfirm(gettext("Overwrite existing project?", domain = "R-RQDA"),icon="warning")
        if (file.access(newpath, 2) != 0 && override) {
            override <- FALSE
            gmessage(gettext("You have no write permission to overwrite it.", domain = "R-RQDA"),container=TRUE,icon="error")
        }
    }
    if (!fexist | override ){
        succeeded <- file.copy(from=oldpath, to=newpath,overwrite=override)
    }
    if (!succeeded) gmessage(gettext("Failed to save the project to the new location.", domain = "R-RQDA"),container=TRUE,icon="error")
    closeProjBF()
    ## this must be placed before closeProject() because .fnames_rqda[] <- NULL will triger Clicked handler
    closeProject()
    enabled(button$cloprob) <- FALSE
    openProject(path=newpath,updateGUI=TRUE)
}