title: Need to replace default "No data available in table" message in Shiny R renderDataTable
body: <p>I don't know much of JavaScript, and I'm having a problem to override the default message in the Shiny R App, when I'm outputting table.</p>
  
  <p>When table is empty, it's giving message <code>"No data available in table"</code> in the first row. I wanted to put some app-specific instructions instead.</p>
  
  <p>I found that there's something like:
  <code>options = list(searching = FALSE,paging = FALSE)</code> but don't know what option it would be to switch that text. </p>
  
  <p>Also, I found JS code to reset the message (<a href="https://datatables.net/reference/option/language.zeroRecords" rel="nofollow noreferrer">https://datatables.net/reference/option/language.zeroRecords</a>), 
  but I wasn't able to attach this correctly to <code>renderDataTable</code> in Shiny.
  I just don't know the correct syntax of incorporating JS into shiny, I tried </p>
  
  <pre><code>options = list(searching = FALSE,paging = FALSE, callback=DT:JS(
  '
  {
    "language": {
      "zeroRecords": "No records to display- custom text"
    }
  '
  </code></pre>
  
  <p>but it didn't work. I would appreciate some guidance on this.
  Here's the whole code. Right now my attempts to replace the mesage are ignored:</p>
  
  <pre><code>library(ggplot2)
  library(DT)
  ui &lt;- fluidPage(
  titlePanel("Basic DataTable"),
  
  # Create a new Row in the UI for selectInputs
  fluidRow(
  column(12,
         selectInput("man",
                     "Manufacturer:",
                     c("All",
                       unique(as.character(mpg$manufacturer))))
   )
  ),
  # Create a new row for the table.
  fluidRow(
  DT::dataTableOutput("table")
  )
  )
  server &lt;-function(input, output) {
  
  # Filter data based on selections
  output$table &lt;- DT::renderDataTable(DT::datatable({
  data &lt;- mpg
  if (input$man != "All") {
    data &lt;- data[data$manufacturer == "dddddd",]
  }
  data
  },options = list(searching = FALSE,paging = FALSE,callback=DT::JS(
  '
  {
  "language": {
  "zeroRecords": "No records to display- custom text"
  }}
  ') )
  ))
   }
   shinyApp(ui = ui, server = server)
  </code></pre>