add n parameter to cross_section

mikejohnson51 · May 23, 2024 · 43dbec1 · 43dbec1
1 parent 8a476c0
commit 43dbec1
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -27,7 +27,7 @@ Imports:
 License: MIT + file LICENSE
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Suggests: 
     distill,
     DT,

diff --git a/R/channel_shape.R b/R/channel_shape.R
@@ -55,14 +55,15 @@ compute_n <- function(df, S = .02){
 #' @param r The corresponding Dingman's r coefficient 
 #' @param TW width of the channel at bankfull 
 #' @param Ymax maximum depth of the channel at bankfull 
+#' @param n the number of points to construct in the XS
 #' @return depth values every 1m along the cross section  
 #' @family hydraulics 
 #' @export
 
-cross_section <- function(r, TW = 30, Ymax = 2){
+cross_section <- function(r, TW = 30, Ymax = 2, n = 30){
 
   TW <- as.integer(TW)
-  half <- TW/2
+  half <- ceiling(n/2)
   x_list <- numeric()
   z_list <- numeric()
 

diff --git a/man/cross_section.Rd b/man/cross_section.Rd