diff --git a/R/late.R b/R/late.R index 75da935..a4ac7f5 100644 --- a/R/late.R +++ b/R/late.R @@ -72,7 +72,6 @@ late_aes <- function(editor) { nstars <- unlist(lapply(days, function(u) sum(u > c(12L, 18L, 24L) * 7))) articles$stars <- stringr::str_dup("*", nstars) output <- dplyr::arrange(articles, date) |> as.data.frame() - rownames(output) <- output$id - output[output$stars != "", c("date", "ae", "stars")] + output[output$stars != "", c("id", "date", "ae", "stars")] }