addressing DOI-USGS#187 as best as possible from the client side

lawinslow · Apr 11, 2016 · 07cc147 · 07cc147
1 parent d1ed3fb
commit 07cc147
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 1 deletion.
diff --git a/R/item_append_files.R b/R/item_append_files.R
@@ -16,7 +16,11 @@
 #' }
 #' @export
 item_append_files = function(sb_id, files, ..., session=current_session()){
-
+
+	if(length(files) > 50){
+		warning('Trying to attach a large number of files to a SB item. SB imposes file limits which may cause this to fail')
+	}
+
 	item <- as.sbitem(sb_id)
 	r = sbtools_POST(url = paste0(pkg.env$url_upload,'?id=', item$id), ...,
 									 body = multi_file_body(files), 

diff --git a/R/item_replace_files.R b/R/item_replace_files.R
@@ -12,6 +12,11 @@
 #'   \code{\link{item_append_files}}
 #' @export
 item_replace_files <- function(sb_id, files, ..., all=FALSE, session=current_session()){
+
+	if(length(files) > 50){
+		warning('Trying to attach a large number of files to a SB item. SB imposes file limits which may cause this to fail')
+	}
+
 	if(all){
 		item_rm_files(sb_id, ..., session=session)
 	}else{

diff --git a/R/item_upload_create.R b/R/item_upload_create.R
@@ -15,6 +15,10 @@
 #' }
 item_upload_create = function(parent_id, files, ..., session=current_session()){
 
+	if(length(files) > 50){
+		warning('Trying to attach a large number of files to a SB item. SB imposes file limits which may cause this to fail')
+	}
+
 	item <- as.sbitem(parent_id)
 	r = sbtools_POST(url = paste0(pkg.env$url_upload_create, item$id, '?title=title'), 
 									 ...,