Fix levels of factor in austen_books()

juliasilge · Oct 23, 2016 · 6bd90d0 · 6bd90d0
1 parent 738288e
commit 6bd90d0
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/austen_books.R b/R/austen_books.R
@@ -33,5 +33,6 @@ austen_books <- function(){
         )
        ret <- data.frame(text = unlist(books, use.names = FALSE), stringsAsFactors = FALSE)
        ret$book <- factor(rep(names(books), sapply(books, length)))
+       levels(ret$book) <- unique(ret$book)
        structure(ret, class = c("tbl_df", "tbl", "data.frame"))
 }