fix: check errors

DESCRIPTION

@@ -20,5 +20,7 @@ RoxygenNote: 7.1.2
 Roxygen: list(markdown = TRUE)
 Imports: 
     logger,
+    magrittr,
     terra,
-    tidyquery
+    tidyquery,
+    xml2

NAMESPACE

@@ -20,4 +20,3 @@ export(sic_run_fortran)
 export(split_reach)
 import(magrittr)
 import(xml2)
-importFrom(rlang,parse_expr)

R/convert_sic_params.R

@@ -11,7 +11,8 @@
 #' @export
 #'
 #' @examples
-#' convert_sic_params(list(SCE = 1, VAR = 1))
+#' cfg <- cfg_tmp_project()
+#' convert_sic_params(list(SCE = 1, VAR = 1), cfg = cfg)
 #'
 convert_sic_params <- function(params, cfg = loadConfig()) {
   if (!"INTERF" %in% names(params)) {

R/create_section_txt.R

@@ -10,7 +10,7 @@
 #' @export
 #' @examples
 #' # Trapezoidal section
-#' export_section_txt("Trapeze", 0, "T", list(B = 2, S = 1.5, ZF = 100, ZB = 102))
+#' create_section_txt("Trapeze", 0, "T", list(B = 2, S = 1.5, ZF = 100, ZB = 102))
 create_section_txt <- function(section_name, abscissa, section_type, profile, distance_majeur = FALSE) {
 
   if (section_type == "T") {

R/get_result.R

@@ -6,7 +6,6 @@
 #'
 #' @return
 #' @export
-#' @importFrom rlang parse_expr
 #' @import magrittr
 #'
 #' @examples

man/convert_sic_params.Rd

@@ -21,6 +21,7 @@ This function is called by \link{sic_run_fortran} to convert list of parameters
 The parameter \code{INTERF} is set to 0 (zero) by default.
 }
 \examples{
-convert_sic_params(list(SCE = 1, VAR = 1))
+cfg <- cfg_tmp_project()
+convert_sic_params(list(SCE = 1, VAR = 1), cfg = cfg)
 
 }

man/create_section_txt.Rd

@@ -31,5 +31,5 @@ Export a section in importation SIC format
 }
 \examples{
 # Trapezoidal section
-export_section_txt("Trapeze", 0, "T", list(B = 2, S = 1.5, ZF = 100, ZB = 102))
+create_section_txt("Trapeze", 0, "T", list(B = 2, S = 1.5, ZF = 100, ZB = 102))
 }

tests/testthat/test-create_uniform_reach_txt.R

@@ -6,15 +6,18 @@ profT <- list(
 )
 
 test_that("Trapezoidal minor section", {
+  profT2 <- profT
+  profT2$ZF <- 99
+  profT2$ZB <- 101
   expect_equal(
     create_uniform_reach_txt(abscissas = c(1000, 2000),
                              upstream_bed_elevation = 100,
                              slope = 0.001,
                              section_type = "T",
-                             profile = profT),
+                             profile = profT)[1:2],
     list(
-      "00001000" = c("Section x=1000 $ 1000 $  $ 0 $ T", "2\t1", "102\t100"),
-      "00002000" = c("Section x=2000 $ 2000 $  $ 0 $ T", "2\t1", "101\t99")
+      "00001000" = create_section_txt("Section x=1000", 1000, "T", profT),
+      "00002000" = create_section_txt("Section x=2000", 2000, "T", profT2)
     )
   )
 })