Fix lidar rooftop tool error

Author: giswqs

PY2R/automation.py

@@ -25,6 +25,7 @@ def function_header(line):
         line = line.replace("self, i,", "input,")
         line = line.replace("self, i=None,", "input,")
         line = line.replace("self, output, i=None,", "input, output,")
+        line = line.replace(', i=None,', ', input=None,')
         line = line.replace("self, ", "")
         line = line.replace("callback=None", "wd=NULL, verbose_mode=FALSE")
         line = line.replace("False", "FALSE")

PY2R/scripts/lidar_analysis.R

@@ -1235,13 +1235,13 @@ wbt_lidar_remove_outliers <- function(input, output, radius=2.0, elev_diff=50.0,
 #'
 #' @return Returns the tool text outputs.
 #' @export
-wbt_lidar_rooftop_analysis <- function(buildings, output, i=NULL, radius=2.0, num_iter=50, num_samples=10, threshold=0.15, model_size=15, max_slope=65.0, norm_diff=10.0, azimuth=180.0, altitude=30.0, wd=NULL, verbose_mode=FALSE) {
+wbt_lidar_rooftop_analysis <- function(buildings, output, input=NULL, radius=2.0, num_iter=50, num_samples=10, threshold=0.15, model_size=15, max_slope=65.0, norm_diff=10.0, azimuth=180.0, altitude=30.0, wd=NULL, verbose_mode=FALSE) {
   wbt_init()
   args <- ""
   args <- paste(args, paste0("--buildings=", buildings))
   args <- paste(args, paste0("--output=", output))
-  if (!is.null(i)) {
-    args <- paste(args, paste0("--i=", i))
+  if (!is.null(input)) {
+    args <- paste(args, paste0("--input=", input))
   }
   if (!is.null(radius)) {
     args <- paste(args, paste0("--radius=", radius))

R/lidar_analysis.R

@@ -1235,13 +1235,13 @@ wbt_lidar_remove_outliers <- function(input, output, radius=2.0, elev_diff=50.0,
 #'
 #' @return Returns the tool text outputs.
 #' @export
-wbt_lidar_rooftop_analysis <- function(buildings, output, i=NULL, radius=2.0, num_iter=50, num_samples=10, threshold=0.15, model_size=15, max_slope=65.0, norm_diff=10.0, azimuth=180.0, altitude=30.0, wd=NULL, verbose_mode=FALSE) {
+wbt_lidar_rooftop_analysis <- function(buildings, output, input=NULL, radius=2.0, num_iter=50, num_samples=10, threshold=0.15, model_size=15, max_slope=65.0, norm_diff=10.0, azimuth=180.0, altitude=30.0, wd=NULL, verbose_mode=FALSE) {
   wbt_init()
   args <- ""
   args <- paste(args, paste0("--buildings=", buildings))
   args <- paste(args, paste0("--output=", output))
-  if (!is.null(i)) {
-    args <- paste(args, paste0("--i=", i))
+  if (!is.null(input)) {
+    args <- paste(args, paste0("--input=", input))
   }
   if (!is.null(radius)) {
     args <- paste(args, paste0("--radius=", radius))

docs/pkgdown.yml

@@ -2,5 +2,5 @@ pandoc: 2.10.1
 pkgdown: 1.5.1
 pkgdown_sha: ~
 articles: []
-last_built: 2020-09-04T18:30Z
+last_built: 2020-09-04T19:44Z