Importing Open Street Map data gives wrong encoding

I am using the osmdata package to extract data from Open Street Map (OSM) and turn it into a sf object. Unfortunately, I have not found a way to get the encoding right using the functions of the osmdata and sf package. Currently, I am changing the encoding afterwards via the Encoding function, which is quite cumbersome because it involves a nested loop (over all data frames contained in the object returned from Open Street Map, and over all character columns within these data frames).

Is there a more generic, nicer way to get the encoding right?

The following code shows the problem. It extracts OSM data on pharmacy's in the German city Neumünster:

library(osmdata)
library(sf) 
library(purrr)

results <- opq(bbox = "Neumünster, Germany") %>%
   add_osm_feature(key = "amenity", value = "pharmacy") %>% 
   osmdata_sf()
pharmacy_points <- results$osm_points
head(pharmacy_points$addr.city)

My locale and encoding is set as follows:

My current, but unsatisfactory, solution is the following:

encode_osm <- function(list){
  # For all data frames in query result
  for (df in (names(list)[map_lgl(list, is.data.frame)])) {
    last <- length(list[[df]])
    # For all columns except the last column ("geometry")
    for (col in names(list[[df]])[-last]){
      # Change the encoding to UTF8
      Encoding(list[[df]][[col]]) <- "UTF-8"
    }
  }
  return(list)
}

results_encoded <- encode_osm(results)