Update join.r