Sum of value showing NaN in summarywidget about htmlwidgets HOT 2 OPEN

sharedData <- function(df) {
  SharedData$new(df)
}

df <- read.csv("sample.csv")

df_shared <- sharedData(df)

key <- df_shared$key()
group <- df_shared$groupName()
data <- df_shared$origData()


selection = ~favourableTop10 == "Unfavourable Top 10"
selection = eval(selection[[2]], data, environment(selection))

data = data[selection, ]
key = key[selection]

column = 'Revenue'
data = data[[column]]

statistic <- 'sum'

digits = 2

x = list(
  data = data,
  settings = list(
    statistic = statistic,
    digits = digits,
    crosstalk_key = key,
    crosstalk_group = group
  )
)

width = NULL
height = NULL
elementId = NULL

htmlwidgets::createWidget(
  name = 'summarywidget',
  x,
  width = width,
  height = height,
  package = 'summarywidget',
  elementId = elementId,
  dependencies = crosstalk::crosstalkLibs()
)