Gustav IV. Adolf, Schweden, König