@@ -184,7 +184,12 @@ getAbsSandboxPath <- function(fileLocation){

     boxName <- box[[1]]

     boxPath <- box[[2]]

     if (is.null(boxName)){

-        return(file.path(getwd(),fileLocation)) 

+        if(isAbsolutePath(fileLocation)){

+            filePath <- fileLocation

+        } else {

+            filePath <- (file.path(getwd(), fileLocation)) 

+        } 

+        return(filePath)

     } else if (!is.null(boxName) && !is.null(boxPath)){

         return(paste(boxPath, fileLocation, sep="/"))

     } else {

@@ -97,7 +97,11 @@ sandboxGetFileInfo <- function(fileName, sandboxName=NULL, base.url=.defaultBase

         },

         error = function(e){

             if(is.null(sandboxName) && is.null(getCurrentSandboxName()) && !is.null(fileName) && !is.null(trimws(fileName))){

+                if(isAbsolutePath(fileName)){

+                    filePath <- fileName

+                } else {

                 filePath <- (file.path(getwd(), fileName)) 

+                }

                 if (file.exists(filePath)){

                     isFile <- utils::file_test("-f", fileName)

                     modifiedTime <- format(file.info(fileName)$mtime, usetz=FALSE)