quick and very dirty fix: printing summaries would crash when an AE d…

…ecision was administrated

R/assignments.R

@@ -17,7 +17,7 @@ smart.cap <- function(x) {
 ## just list_reviewers
 print_sum <- function(arts, status, detail = NULL,
                       glue = "{art$id} ({art$days_since_submission}): {art$title}",
-                      description = smart.cap(status), pre.width = 20) {
+                      description = if(is.character(status)) smart.cap(status) else "Has AE decision", pre.width = 20) {
     arts <- arts[if (is.logical(status)) status else arts$status == status, ]
     if (nrow(arts) == 0)
         return(invisible(NULL))