Eu tenho uma coluna comTRUE ouFALSE valores

data("mtcars")
mtcars$Favorite <- "FALSE"

Estou interessado em exibir esta coluna (Favorito) como uma caixa de seleção brilhante.

runApp(list(
  ui = basicPage(
    h2('The mtcars data'),
    dataTableOutput('mytable')
  ),
  server = function(input, output) {
    output$mytable = renderDataTable({
      mtcars
    })
  }
))

Fonte :http://shiny.rstudio.com/articles/datatables.html

Não sei como fazê-lo funcionar, qualquer ajuda é muito apreciada.