sumar los registros de incendios de un dataframe que cumplan la condición de que su estado esté activo

df <- data.frame(state = c("active", "closed", "active", "active"),
                 size = c(100, 200, 300, 400))
df

sum(df[df$state == "active", "size"])