Bug fixing

ma-z-am · ma-z-am · commit 70bee158d35b · 2025-12-05T12:09:49.000+01:00
diff --git a/R/site_info_qsim_ID.R b/R/site_info_qsim_ID.R
@@ -18,7 +18,7 @@ site_info_from_qsimID<- function(qsim_id){
   s2 <- strsplit(s1[2], "\\.")[[1]]
   list("river_name" = s1[1],
        "section_id" = s2[1],
-       "section_name" = paste(s2[2:length(s2)], collapse = " "),
+       "section_name" = paste(s2[-1], collapse = " "),
        "km" = as.numeric(s1[3]))
 }
 

Original file line number	Diff line number	Diff line change
`@@ -18,7 +18,7 @@ site_info_from_qsimID<- function(qsim_id){`
`18`	`18`	`s2 <- strsplit(s1[2], "\\.")[[1]]`
`19`	`19`	`list("river_name" = s1[1],`
`20`	`20`	`"section_id" = s2[1],`
`21`		`- "section_name" = paste(s2[2:length(s2)], collapse = " "),`
	`21`	`+ "section_name" = paste(s2[-1], collapse = " "),`
`22`	`22`	`"km" = as.numeric(s1[3]))`
`23`	`23`	`}`
`24`	`24`