Published report with R script using Apriori unexpected results

My code below displays a table with Apriori results. I'm able to see the rules, support, confidence, lift, and count in PowerBI Desktop. I sort by count which works in PowerBI Desktop. When I publish this report to the web, the column count is no longer displayed, and the script fails because of the sort. Any thoughts?

rules_by_count <- sort(basket_rules, by = "count")

#Main
library(Matrix)
library(arules)
library(plyr)
library(dplyr)
library(gridExtra)

itemList <- dataset
#itemList <- read.csv("ItemListAll.csv", header=TRUE, sep=",")

# Converting to a Matrix ####
itemList$const = TRUE

# Remove duplicates
dim(itemList)
orders <- unique(itemList)
dim(itemList)

# Need to reshape the matrix
itemList_max_prep <- reshape(data = itemList,
                           idvar = "SALESID",
                           timevar = "ITEMNAME",
                           direction = "wide")

# Drop the SALESID
itemList_matrix <- as.matrix(itemList_max_prep[,-1])

# Clean up the missing values to be FALSE
itemList_matrix[is.na(itemList_matrix)] <- FALSE

# Clean up names
colnames(itemList_matrix) <- gsub(x=colnames(itemList_matrix),
                               pattern="const\\.", replacement="")

itemList_trans <- as(itemList_matrix,"transactions")

#inspect(itemList_trans)

basket_rules <- apriori(itemList_trans, parameter = list(sup=0.00005,conf=0.75,target="rules", maxlen=3, maxtime=20))

rules_by_count <- sort(basket_rules, by = "count")
df_basket <- as(rules_by_count,"data.frame")
df_basket$support <- ceiling(df_basket$support * 100)
df_basket$confidence<- ceiling(df_basket$confidence * 100)
df_basket$lift<- round(df_basket$lift, digits = 2)
grid.table(head(df_basket, n = 5L))

I get this error. "Error in .local(x, decreasing, ...) : Unknown interest measure to sort by."