# use non-exported function from teal.slice
topological_sort <- getFromNamespace("topological_sort", "teal.slice")
topological_sort(list(A = c(), B = c("A"), C = c("B"), D = c("A")))
topological_sort(list(D = c("A"), A = c(), B = c("A"), C = c("B")))
topological_sort(list(D = c("A"), B = c("A"), C = c("B"), A = c()))
Run the code above in your browser using DataLab