For pre-summarized data, rename the items column so plot works.

DESCRIPTION

@@ -2,9 +2,8 @@ Package: likert
 Type: Package
 Title: Analysis and Visualization Likert Items
 Version: 1.3.6
-Date: 2017-06-26
-Author: Jason Bryer <[email protected]>, Kimberly Speerschneider
-    <[email protected]>
+Date: 2019-03-06
+Author: Jason Bryer <[email protected]>
 Maintainer: Jason Bryer <[email protected]>
 URL: http://jason.bryer.org/likert, http://github.com/jbryer/likert
 BugReports: https://github.com/jbryer/likert/issues

R/likert.R

@@ -45,7 +45,7 @@ likert <- function(items, summary,
 				   factors=NULL,
 				   importance,
 				   nlevels=length(levels(items[[1]]))) {
- 	items <- as.data.frame(items)
+ 	items <- as.data.frame(items) # Handle tibbles
  	if(!missing(grouping)) {
  		if(sum(is.na(grouping)) > 0) {
  			stop('Grouping variable cannot have any missing values.')
@@ -57,6 +57,7 @@ likert <- function(items, summary,
  		}
  	}
 	if(!missing(summary)) { #Pre-summarized data
+		names(summary)[1] <- 'Items'
 		if(!is.null(grouping) & length(grouping) != nrow(summary)) {
 			stop('The length of grouping must be equal to the number of rows in summary.')
 		}