Coefficient and confidence interval at chosen values of covariate

Question

Lets say I have a simple linear regression model with an interaction which I fit like so:

library(tidyverse)
data(iris)
model <- lm(Sepal.Length ~ Sepal.Wi