Fix for shapefiles in the cloud?

R/item_file_download.R

@@ -14,6 +14,9 @@
 #' parameter is not specified.
 #' @param overwrite_file Boolean indicating if file should be overwritten if it
 #'   already exists locally
+#' @param fetch_cloud_urls (logical) fetch a tokenized cloud download URLs? Default: \code{TRUE}
+#' This option will take slightly longer but the `url` attribute of the returned list will
+#' work for direct file downloads or use with other applications and libraries.
 #'   
 #' @return Character vector of full paths to local files 
 #'
@@ -30,14 +33,15 @@
 #' @export
 item_file_download = function(sb_id, ..., names, destinations, 
 															dest_dir = getwd(), 
-															overwrite_file = FALSE){
+															overwrite_file = FALSE,
+															fetch_cloud_urls = FALSE){
 
 	sb_id = as.sbitem(sb_id)
 
 	if(!session_validate())
 		stop('Session state is invalid, please re-authenticate')
 
-	flist <- item_list_files(sb_id, fetch_cloud_urls = FALSE, ...)
+	flist <- item_list_files(sb_id, fetch_cloud_urls = fetch_cloud_urls, ...)
 
 	if(nrow(flist) < 1)
 		stop(sb_id$id, ':Item has no attached files')

R/item_list_files.R

@@ -4,7 +4,7 @@
 #' @param recursive (logical) List files recursively. Default: \code{FALSE}
 #' @param fetch_cloud_urls (logical) fetch a tokenized cloud download URLs? Default: \code{TRUE}
 #' This option will take slightly longer but the `url` attribute of the returned list will
-#' work for direct file downloads or use with pther applications and libraries.
+#' work for direct file downloads or use with other applications and libraries.
 #'
 #' @return 
 #' A data.frame with columns fname, size, url, and facet. 
@@ -154,7 +154,9 @@ get_facet_files <- function(item) {
 					 	list(name = y$name,
 					 			 size = y$size,
 					 			 url = y$downloadUri,
-					 			 facet_name = x$name)
+					 			 facet_name = x$name,
+					 			 cuid = y$cuid,
+					 			 key = y$key)
 
 					 }, n = x$name)