Ошибка Gtsummary при использовании tbl_merge: «Невозможно преобразовать из `y$modify_stat_N` <double> в `x$modify_stat_N` <integer> из-за потери точности»

У меня есть опрос с отсутствующими ответами и рассчитанными весами для учета отсева. Я хочу иметь возможность отображать обе таблицы без весов и с весами рядом для сравнения. Поэтому я хочу объединить таблицы, созданные с помощью tbl_summary() и tbl_svysummary(), с помощью tbl_merge(), но в итоге получаю ошибку:

Error in dplyr::rows_update(): ! Can't convert from y$modify_stat_N \<double\> to x$modify_stat_N \<integer\> due to loss of precision. • Locations: 1, 2

Ниже приведен воспроизводимый пример. Я уже обнаружил, что ошибка не возникает при использовании аргумента by в tbl_summary() или tbl_svysummary().

Большое спасибо

set.seed(123)
library(tidyverse)
library(gtsummary)
library(srvyr)

num_rows <- 10000

item1 <- sample(c("Never", "Sometimes", "All the time"), num_rows, replace = TRUE)
item2 <- sample(c("Never", "Sometimes", "All the time"), num_rows, replace = TRUE)
item3 <- sample(c("Never", "Sometimes", "All the time"), num_rows, replace = TRUE)

surveystatus <- sample(c("Respondent", "Non-respondent"), num_rows, replace = TRUE)

gender <- sample(c("Male", "Female"), num_rows, replace = TRUE)

weight <- rnorm(num_rows, mean = 0, sd = 1)

toy_data <- data.frame(item1, item2, item3, gender, weight, surveystatus)

  # Create a survey object
toy_dataw <- toy_data %>%
  srvyr::as_survey_design(weights = weight)

####
  # Tbl merge that works ! :D
t1 <- toy_data %>%
  filter(surveystatus == "Respondent") %>%
  select(item1, item2, item3, gender) %>%
  tbl_summary(by = gender)

t2 <- toy_dataw %>%
  srvyr::filter(surveystatus == "Respondent") %>%
  srvyr::select(item1, item2, item3, gender) %>%
  tbl_svysummary(by = gender)

tbl_merge(tbls = list(t1, t2))

  # Tbl merge that does not work ! :(
t3 <- toy_data %>%
  filter(surveystatus == "Respondent") %>%
  select(item1, item2, item3) %>%
  tbl_summary()

t4 <- toy_dataw %>%
  srvyr::filter(surveystatus == "Respondent") %>%
  srvyr::select(item1, item2, item3) %>%
  tbl_svysummary()

tbl_merge(tbls = list(t3, t4))