OSM data open street map R maps error code

Question

I want to create a map of Germany, which contains all highways and streets. And I want to add some points of special locations.

But I always get an error:

library("dplyr")
library("ggplot2")
library("osmdata")
library("sf")`

land \<- 'Germany'
location \<- land %\>% opq()

Error in `httr2::req_perform()`:
! HTTP 403 Forbidden.
Run `rlang::last_trace()` to see where the error occurred.