R dbplyr translation produces “operator does not exist” error

Question

I\'m trying to query a database and calculate weighted mean with dbplyr. I wrote it out with sum and * and / and the SQL