@@ -321,9 +321,7 @@ exportFilters<-function(filename = "filters.json", base.url = .defaultBaseUrl, o

 #' }

 #' @export

 importFilters<-function(filename , base.url = .defaultBaseUrl){

-    if(!isAbsolutePath(filename))

-        filename = getAbsSandboxPath(filename)

-    

+    filename = getAbsSandboxPath(filename)

     res <- commandsGET(paste0('filter import file="',filename,'"'),base.url)

     Sys.sleep(get(".CATCHUP_FILTER_SECS",envir = RCy3env)) ## NOTE: TEMPORARY SLEEP "FIX" 

     return(res)

@@ -1053,7 +1053,7 @@ createNetworkFromDataFrames <-

 importNetworkFromFile <- function(file=NULL, base.url=.defaultBaseUrl){

     if(is.null(file))

         file <- system.file("extdata","galFiltered.sif",package="RCy3")

-    else if(!isAbsolutePath(file))

+    else 

         file = getAbsSandboxPath(file)

     res <- commandsPOST(paste('network load file file',file,sep = "="))

@@ -293,9 +293,10 @@ sandboxRemoveFile <- function(fileName, sandboxName=NULL, base.url=.defaultBaseU

         command <- paste(command, sprintf("sandboxName=%s", sandboxName))

     } else if(!is.null(fileName)){

         if(isAbsolutePath(fileName)){

-            fileName <- basename(fileName)

-        }

+            fileName <- fileName

+        } else {

         fileName <- file.path(sandboxPath, fileName)

+        }

     }

     if(!is.null(fileName)){

         command <- paste(command, sprintf("fileName=%s", fileName))

@@ -107,7 +107,6 @@ saveSession<-function(filename=NULL, base.url=.defaultBaseUrl, overwriteFile=TRU

             }

         }

         fullFilename <- fileInfo[['filePath']]

-        

         commandsPOST(paste0('session save as file="',

                             fullFilename,'"'), 

                      base.url=base.url)

@@ -187,9 +187,7 @@ exportVisualStyles<-function(filename=NULL, type="XML", styles=NULL, base.url=.d

 #' @seealso exportVisualStyles

 #' @export

 importVisualStyles<-function(filename="styles.xml", base.url=.defaultBaseUrl){

-    if(!isAbsolutePath(filename))

-        filename = getAbsSandboxPath(filename)

-    

+    filename = getAbsSandboxPath(filename)

     cmd.string <- paste0('vizmap load file',' file="',filename,'"')

     commandsPOST(cmd.string, base.url = base.url)

     }