I got a workaround:

# in RStudio Files tab
# click on the .html file, Open in Editor
# File -> Save as -> [file_name].txt

body <- readtext(here::here("self.txt"))

Email[["htmlbody"]] = body$text