Error in get_network()

[Dschaykib]

When a function is defined twice with different content, in differently named files, it seems, that

helfRlein/R/get_network.R

Lines 401 to 409 in 7a5e587

	tmp_index <- sapply(
	new_rows,
	function(y) {
	which(lapply(def_functions2, function(x) x == y) == TRUE)
	}
	)
	if (length(tmp_index) == 0) {
	tmp_index <- NULL
	}

throws an error, since it is expected to be only one value per entry instead of more.