Если в BR уже есть функция или набор данных с довольно уникальным именем, вы можете использовать его в качестве защиты.В противном случае просто определите одно:
BR
B_is_loaded <- TRUE
# The normal B stuff
AR:
if(!exists("B_is_loaded")) source("B.R")
# Now you can call the stuff in B