Bundesliga leaders Bayer Leverkusen extended their undefeated streak in all competitions this season to a record-equalling 32 matches, thanks to a 2-1 win in Heidenheim.