add delete method for callbacks

Author: hexaeder

docs/src/API.md

@@ -219,6 +219,7 @@ has_callback
 get_callbacks(::NetworkDynamics.ComponentModel)
 set_callback!
 add_callback!
+delete_callbacks!
 ```
 
 ## Sparsity Detection

src/NetworkDynamics.jl

@@ -100,7 +100,7 @@ export has_init, get_init, set_init!, delete_init!, strip_inits!
 export has_bounds, get_bounds, set_bounds!, delete_bounds!, strip_bounds!
 export has_graphelement, get_graphelement, set_graphelement!
 export get_initial_state, dump_initial_state, dump_state
-export has_callback, get_callbacks, set_callback!, add_callback!
+export has_callback, get_callbacks, set_callback!, add_callback!, delete_callbacks!
 export has_initconstraint, get_initconstraints, set_initconstraint!, add_initconstraint!, delete_initconstraints!
 export has_initformula, get_initformulas, set_initformula!, add_initformula!, delete_initformulas!
 export has_position, get_position, set_position!

src/metadata.jl

@@ -595,6 +595,20 @@ end
 add_callback!(nw::Network, idx::VCIndex, cb; kw...) = add_callback!(getcomp(nw, idx), cb; kw...)
 add_callback!(nw::Network, idx::ECIndex, cb; kw...) = add_callback!(getcomp(nw, idx), cb; kw...)
 
+"""
+    delete_callbacks!(c::ComponentModel)
+    delete_callbacks!(nw::Network, idx::Union{VIndex,EIndex})
+
+Removes all callback functions from the component model,
+or from a component referenced by `idx` in a network.
+Returns `true` if callbacks existed and were removed, `false` otherwise.
+
+See also: [`set_callback!`](@ref), [`add_callback!`](@ref).
+"""
+delete_callbacks!(c::ComponentModel) = delete_metadata!(c, :callback)
+delete_callbacks!(nw::Network, idx::VCIndex) = delete_callbacks!(getcomp(nw, idx))
+delete_callbacks!(nw::Network, idx::ECIndex) = delete_callbacks!(getcomp(nw, idx))
+
 ####
 #### Init constraints
 ####

test/callbacks_test.jl

@@ -131,6 +131,11 @@ end
     affect = ComponentAffect(empty_function, [:ω],[])
     cb3 = ContinuousComponentCallback(cond, affect; affect_neg! = nothing)
     show(stdout, MIME"text/plain"(), cb3)
+
+    # test delete
+    @test delete_callbacks!(v)
+    @test !has_callback(v)
+    @test !delete_callbacks!(v)
 end
 
 @testset "vector callbacks" begin