Sql Join Table Function In R