Есть ли реализация imagemagicks "+ level-colors" в R?

Question

Я хотел бы выполнить эквивалентный процесс Image Magick в R, используя library(magick):

convert 'https://people.sc.fsu.edu/~jburkardt/data/jpg/surf.jpg' +level-colors green,white output.jpg

Он, по сути, сопоставляет цвета «черный» и «белый» с заданными цветами (зеленый / белый ) - с красивым градиентом.

Вот так близко, как я подошел к R:

library(magick)

input <- image_read("https://people.sc.fsu.edu/~jburkardt/data/jpg/surf.jpg")

input %>%
    image_transparent("#000", fuzz = 50) %>%
    image_background("green") 

Входное изображение ниже, за ним следует предпочтительный результат, а затем плохой Вывод R.

Вход

Предпочтительно (генерируется из командной строки imagemagick 7)

Выход R