Split long char strings to avoid check note

Robinlovelace · Oct 27, 2015 · 7a2cfdd · 7a2cfdd
1 parent cb9bec4
commit 7a2cfdd
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 7 deletions.
diff --git a/R/catchmentArea.R b/R/catchmentArea.R
@@ -57,15 +57,19 @@ calc_catchment <- function(
   targetlayer,
   calccols,
   distance = 500,
-  projection = "+proj=aea +lat_1=90 +lat_2=-18.416667 +lat_0=0 +lon_0=10 +x_0=0 +y_0=0 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs",
+  projection = paste0("+proj=aea +lat_1=90 +lat_2=-18.416667 ",
+                      "+lat_0=0 +lon_0=10 +x_0=0 +y_0=0 +ellps=GRS80",
+                      " +towgs84=0,0,0,0,0,0,0 +units=m +no_defs"),
   retainAreaProportion = FALSE,
   dissolve = FALSE
   ){
 
   # Define Named vector of known projection strings
   knownprojs <- c(
-    'austalbers'='+proj=aea +lat_1=-18 +lat_2=-36 +lat_0=0 +lon_0=132 +x_0=0 +y_0=0 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs',
-    'worldalbers'='+proj=aea +lat_1=90 +lat_2=-18.416667 +lat_0=0 +lon_0=10 +x_0=0 +y_0=0 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs'
+    paste0('austalbers'='+proj=aea +lat_1=-18 +lat_2=-36 +lat_0=0 +lon_0=132 +x_0=0',
+           ' +y_0=0 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs'),
+    paste0('worldalbers'='+proj=aea +lat_1=90 +lat_2=-18.416667 +lat_0=0 +lon_0=10 +x_0=0',
+    ' +y_0=0 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs')
   )
 
   if (sum(is.na(knownprojs[projection])) == 0) {
@@ -203,7 +207,9 @@ calc_catchment_sum <- function(
   targetlayer,
   calccols,
   distance = 500,
-  projection = "+proj=aea +lat_1=90 +lat_2=-18.416667 +lat_0=0 +lon_0=10 +x_0=0 +y_0=0 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs",
+  projection = paste0("+proj=aea +lat_1=90 +lat_2=-18.416667",
+                      " +lat_0=0 +lon_0=10 +x_0=0 +y_0=0",
+                      " +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs"),
   retainAreaProportion = FALSE
   ){
   if(length(calccols) == 1) {

diff --git a/man/calc_catchment.Rd b/man/calc_catchment.Rd
@@ -5,8 +5,10 @@
 \title{Calculate catchment area and associated summary statistics.}
 \usage{
 calc_catchment(polygonlayer, targetlayer, calccols, distance = 500,
-  projection = "+proj=aea +lat_1=90 +lat_2=-18.416667 +lat_0=0 +lon_0=10 +x_0=0 +y_0=0 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs",
-  retainAreaProportion = FALSE, dissolve = FALSE)
+  projection = paste0("+proj=aea +lat_1=90 +lat_2=-18.416667 ",
+  "+lat_0=0 +lon_0=10 +x_0=0 +y_0=0 +ellps=GRS80",
+  " +towgs84=0,0,0,0,0,0,0 +units=m +no_defs"), retainAreaProportion = FALSE,
+  dissolve = FALSE)
 }
 \arguments{
 \item{polygonlayer}{A SpatialPolygonsDataFrame containing zones from which

diff --git a/man/calc_catchment_sum.Rd b/man/calc_catchment_sum.Rd
@@ -5,7 +5,9 @@
 \title{Calculate summary statistics for catchment area.}
 \usage{
 calc_catchment_sum(polygonlayer, targetlayer, calccols, distance = 500,
-  projection = "+proj=aea +lat_1=90 +lat_2=-18.416667 +lat_0=0 +lon_0=10 +x_0=0 +y_0=0 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs",
+  projection = paste0("+proj=aea +lat_1=90 +lat_2=-18.416667",
+  " +lat_0=0 +lon_0=10 +x_0=0 +y_0=0",
+  " +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs"),
   retainAreaProportion = FALSE)
 }
 \arguments{