Merge pull request #65 from MichaelChirico/patch-1

gertjanssenswillen · web-flow · commit e16c72400d6c · 2023-07-04T13:54:49.000+02:00
Fix bug in glue string (missing '}')
diff --git a/R/detect_resource_inconsistencies.R b/R/detect_resource_inconsistencies.R
@@ -30,7 +30,7 @@ detect_resource_inconsistencies.eventlog <- function(eventlog, filter_condition
 
 	if(any(!(lifecycle_labels(eventlog) %in% allowed_lifecycles))) {
 		stop(glue::glue("Lifecycle not conform standard lifecycle model. \nAllowed lifecycles: {str_c(allowed_lifecycles, collapse =', ')}.
-         \nNon-standard lifecycles: {str_subset(lifecycle_labels(eventlog), allowed_lifecycles, negate = TRUE)
+         \nNon-standard lifecycles: {str_subset(lifecycle_labels(eventlog), allowed_lifecycles, negate = TRUE)}
          \nTry function 'standardize_lifecycle' to fix."))
 	}
 	# Store the number of cases for output

Original file line number	Diff line number	Diff line change
`@@ -30,7 +30,7 @@ detect_resource_inconsistencies.eventlog <- function(eventlog, filter_condition`
`30`	`30`
`31`	`31`	`if(any(!(lifecycle_labels(eventlog) %in% allowed_lifecycles))) {`
`32`	`32`	`stop(glue::glue("Lifecycle not conform standard lifecycle model. \nAllowed lifecycles: {str_c(allowed_lifecycles, collapse =', ')}.`
`33`		`- \nNon-standard lifecycles: {str_subset(lifecycle_labels(eventlog), allowed_lifecycles, negate = TRUE)`
	`33`	`+ \nNon-standard lifecycles: {str_subset(lifecycle_labels(eventlog), allowed_lifecycles, negate = TRUE)}`
`34`	`34`	`\nTry function 'standardize_lifecycle' to fix."))`
`35`	`35`	`}`
`36`	`36`	`# Store the number of cases for output`