Write a helper function that factorize the following: ```r urls <- vapply(id, function(x) BiodbUrl$new(url=url, params=list(chebiId=x))$toString(), FUN.VALUE='') ``` Found in `ChebiConn.R` of biodbChebi extension package in functions `doGetEntryPageUrl()` and `doGetEntryImageUrl()`.
Write a helper function that factorize the following:
Found in
ChebiConn.Rof biodbChebi extension package in functionsdoGetEntryPageUrl()anddoGetEntryImageUrl().