replaces whitespace in file name with underscores

Author: andybeet

R/xml_convert.r

@@ -18,7 +18,7 @@
 #' @examples
 #' # Export a model from Ecobase GUI to xml format
 #' # Path to an exported eiixml file
-#' eiixml <- system.file("extdata/xml","West Bering Sea.eiixml", package = "Rpath")
+#' eiixml <- system.file("extdata/xml","West_Bering_Sea.eiixml", package = "Rpath")
 #' rpath_object <- create.rpath.from.eiixml(eiixml)
 #'
 #' @export
@@ -379,7 +379,7 @@ create.rpath.from.eiixml <- function(
 #' @examples
 #' # Export a model from Ecobase GUI to xml format
 #' # Path to an exported eiixml file
-#' eiixml <- system.file("extdata/xml","West Bering Sea.eiixml", package = "Rpath")
+#' eiixml <- system.file("extdata/xml","West_Bering_Sea.eiixml", package = "Rpath")
 #' xml_data <- import.eiixml(eiixml)
 #'
 #'

…st/extdata/xml/Western Bering Sea.eiixml …st/extdata/xml/Western_Bering_Sea.eiixmlinst/extdata/xml/Western Bering Sea.eiixml renamed to inst/extdata/xml/Western_Bering_Sea.eiixml inst/extdata/xml/Western Bering Sea.eiixml renamed to inst/extdata/xml/Western_Bering_Sea.eiixml

@@ -24,7 +24,7 @@ For example, take the model `West Bering seas.eiixml` exported from Ecobase. We
 
 ```{r convert1, echo = TRUE, eval = TRUE}
 # Read in the model
-eiixml_file <- system.file("extdata/xml", "Western Bering Sea.eiixml", package = "Rpath")
+eiixml_file <- system.file("extdata/xml", "Western_Bering_Sea.eiixml", package = "Rpath")
 model <- create.rpath.from.eiixml(eiixml_file)
 ```