is there a way in R to output the contrast coefficients from a logistic regression model with a continuous and categorical interaction variable?

Question

Suppose I have something like the following where am is a binary outcome, mpg is continuous and vs is categorical and I\'m testing an