Rephrase warning messages

R/assemble.R

@@ -54,7 +54,7 @@ setMethod("assemble", "i2dashboard", function(object, output_file, pages, ...) {
       #cat(object@pages[[name]]$header, file = tmp_document, append = TRUE, sep='')
       #cat(object@pages[[name]]$components, file = tmp_document, append = TRUE, sep='')
     } else {
-      warning(sprintf("i2dashboard object does not contain Pagename '%s'", pagename))
+      warning(sprintf("i2dashboard object does not contain a page named '%s'", pagename))
     }
   }
   # copy tempfile to final_document

R/components.R

@@ -23,7 +23,7 @@ setMethod("add_component", "i2dashboard", function(object, page = "default", com
   if (name %in% names(object@pages)){
     object@pages[[name]]$components <- append(object@pages[[name]]$components, component)
   } else {
-    warning(sprintf("i2dashboard object does not contain Pagename %s", name))
+    warning(sprintf("i2dashboard object does not contain a page named '%s'", name))
   }
   return(object)
 })