Error en x[seq_len(n)]: objeto de tipo ‘S4’ no es susceptible de ser subsetteado.

Tengo un código muy simple pero sigo obteniendo este error. ¿Cómo puedo resolverlo? Ocurre después del comando “view” al final. Cuando ejecuto los comandos uno por uno, no hay error hasta “view”.

library(haven)
library(tidyr)
library(tidyverse)
library(lme4)

data <- read_sav("C:/Users/theot/Desktop/project_a/project_2/data.sav")
data_long <- pivot_longer(data,
                          cols = c(depres_1, depres_2),
                          names_to = "time", values_to = "depression")
dl <- data_long[, c("id", "group", "time", "depression",
                    "ruminati")]
model <- lmer(depression ~ ruminati + time*group + (1|id), data=dl)
view(model)