в блестящем приложении ggmosaic выдает ошибку: дискретное значение передается в непрерывном масштабе

Question

В блестящем приложении создаются графики.Один из них, основанный на ggmosaic и ggplot2, я не могу отрендерить.Это дает мне ошибку: «Предупреждение: Ошибка в: Дискретное значение передается в непрерывном масштабе»

При попытке воспроизвести его на консоли я получаю ту же ошибку, когда ggmosaic не загружен (библиотека (ggmosaic)).

# Restart R
library(ggplot2)
library(dplyr)
#library(ggmosaic) not loaded

test_mosaic <- tibble::tribble(
    ~source, ~RegionSplit, ~RegionReport, ~SuppliesSplit, ~SuppliesPlot, ~fYear,  ~measure,
  "Transac",    "Region1",     "Region1",    "Supplies1",     "MarketA",  2017L,  77010005,
  "Transac",    "Region1",     "Region1",    "Supplies2",     "MarketA",  2017L,  10880005,
  "Transac",    "Region1",     "Region1",    "Supplies3",     "MarketA",  2017L,    520005,
    "Store",    "Region1",     "Region1",    "Supplies1",     "MarketA",  2017L,    210005,
    "Store",    "Region1",     "Region1",    "Supplies2",     "MarketA",  2017L,     33305
  )

test_mosaic <- 
  test_mosaic %>% 
  dplyr::mutate_if(is.character, forcats::as_factor) %>% 
  dplyr::mutate_if(is.integer, ~forcats::as_factor(as.character(.)))

ggplot2::ggplot(data = test_mosaic) + 
  ggmosaic::geom_mosaic(
    ggplot2::aes(weight = as.numeric(measure), 
                 x = ggmosaic::product(source, SuppliesSplit), 
                 fill = source),
  na.rm = TRUE, offset = 0.005)

# Error: Discrete value supplied to continuous scale

Если загружен ggmosaic, все работает.в моем блестящем приложении у меня должна быть функция ggmosaic, доступная с

#' @importFrom ggplot2 ggplot aes
#' @importFrom ggmosaic geom_mosaic product

. Есть несколько графиков ggplot2, которые работают нормально, поэтому я действительно не понимаю, что не работает в этом случае.Я что-то упустил очевидное?

спасибо.