Karim Adeyemi scored twice and set up another goal as Borussia Dortmund earned a 4-2 victory over Heidenheim in a crucial clash at the top of the Bundesliga table.