diff --git a/NEWS.md b/NEWS.md
index 62b89a2..7a85b3d 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,5 +1,7 @@
 # shinyFiles (development version)
 
+* Accepted pull request from @WilDoane to address #195
+
 # shinyFiles 0.9.4
 
 * Fixed #185 (@pietrodita)
diff --git a/R/filesave.R b/R/filesave.R
index 08bc4c1..f257dd0 100644
--- a/R/filesave.R
+++ b/R/filesave.R
@@ -28,8 +28,6 @@ NULL
 #'
 shinyFileSave <- function(input, id, updateFreq = 0, session = getSession(),
                           defaultPath = "", defaultRoot = NULL, allowDirCreate = TRUE, ...) {
-  fileGet <- do.call(fileGetter, list(...))
-  dirCreate <- do.call(dirCreator, list(...))
   currentDir <- list()
   lastDirCreate <- NULL
   clientId <- session$ns(id)
@@ -39,6 +37,10 @@ shinyFileSave <- function(input, id, updateFreq = 0, session = getSession(),
     dir <- input[[paste0(id, "-modal")]]
     createDir <- input[[paste0(id, "-newDir")]]
 
+    ## allows reactive links (e.g., for filetypes)
+    fileGet <- do.call(fileGetter, list(...))
+    dirCreate <- do.call(dirCreator, list(...))
+    
     # Show a notification if a user is trying to create a
     # new directory when that option has been disabled
     if (!identical(createDir, lastDirCreate)) {