I can't work out the correct answer for the question below

In R-studio (a tool is similar to Excel), I used this command:

prop.test(22000, 40000, 0.55, alternative = "greater", correct=FALSE)

My answer was 0.5, and it was wrong

How to calculate the P-value by hand or use R-studio for the question below?

Question

Before making the decision to introduce a new version of New Pepsi in 1990, the company introduced New Pepsi to approximately 40,000 consumers in 30 cities in America. With the brands not identified, 22,000 chose New Pepsi over the old Pepsi. Assume that this was a random sample of the population.

Use a hypothesis test to find out if there was evidence that more American consumers preferred New Pepsi to Old Pepsi.

(i) Find the P-value