title: R shiny widgetFunc() warning messages with eventReactive(warning 1) and renderDataTable (warning 2)
body: <p>I'm writing a shiny app and it was working perfectly fine and all of a sudden I am getting two warning messages. I have gone back to previous copies that ran fine and they are now showing the same error messages, so I am really confused.My code still runs and shows accurate results on the results tab of my shiny dashboard, but I want to track down the warning messages.  I debug and the first warning goes away with the rendDataTable and the second warning comes up when I click a tab on my dashboard. The data is a data frame n X 10 with numeric and characters. Any help would be greatly appreciated. If I can provide any more info, just let me know.</p>
  
  <p>Here's 1:</p>
  
  <pre><code>Warning in widgetFunc() :
    renderDataTable ignores ... arguments when expr yields a datatable object; see ?renderDataTable
  Warning: Error in cat: argument 1 (type 'environment') cannot be handled by 'cat'
  Stack trace (innermost first):
      74: cat
      73: eval
      72: eval
      71: withVisible
      70: evalVis
      69: utils::capture.output
      68: paste
      67: output$ntext1
       1: shiny::runApp
  </code></pre>
  
  <p>Here's 2: </p>
  
  <pre><code>Warning in widgetFunc() :
    renderDataTable ignores ... arguments when expr yields a datatable object; see ?renderDataTable
  </code></pre>
  
  
  
  <pre><code>tran_cd=c('I','E','R')
  data_source_cd=c('1','2','3','4')
  library(shiny)
  library(shinydashboard)
  library(xlsx)
  if (!require("DT")) install.packages('DT')
  sessionInfo()
  library(DT)
  ui &lt;- dashboardPage(
    dashboardHeader(title = "ARC"),
    dashboardSidebar(sidebarMenu(
      menuItem("Settings", tabName = "settings", icon = icon("th")),
      menuItem("Results Table", tabName = "ResultsTable", icon = icon("ResultsTable")))),
    dashboardBody(
      tabItems(tabName = "ResultsTable",
                fluidPage(  
                  headerPanel(
                    h1("Anomaly List", align="center",  style = "font-family: 'Verdana';font-weight: 800; line-height: 1.1;   color: #151515;")),
                  # fluidRow(
                  #     column(8, DT::dataTableOutput("table",width = "100%"),offset = 2)))),
                  #                 # Create a new Row in the UI for selectInputs
                  fluidRow(
  
                    column(4,
                           selectInput("sour",
                                       "Source Type:",
                                       c("All",
                                         unique(as.character(data_source_cd))))
                    ),
                    column(4,
                           selectInput("sour1",
                                       "Source Type:",
                                       c("All",
                                         unique(as.character(data_source_cd))))
                    ),
                    column(4,
                           selectInput("tran",
                                       "Transaction Type:",
                                       c("All",
                                         unique(as.character(tran_cd)))))),
                  # Create a new row for the table.
                  fluidRow(column(8, DT::dataTableOutput("table",width = "100%"),offset = 2))))
  )))
  
  
  
  
  library(shiny)
  library(chron)
  library(forecast)
  library(ggplot2)
  #names(iris) = gsub("\\.", "", names(iris))
  setwd("C:/Users/Name/Documents/Projects/TrendAnalysis/Data")
  source("C:/Users/Documents/Projects/TrendAnalysis/Rcode/App-1/MonitoringIngestion.R")
  df=read.csv('list.csv',header=TRUE, stringsAsFactors = FALSE)
  df=unique(df[,1:3])
  dfrn=df[,2];
  rownames(df)=make.names(dfrn, unique=TRUE)
  shinyServer(function(input, output, session) {
    rv &lt;- reactiveValues()
    rv$data &lt;- NULL
  
    ntext1 &lt;- eventReactive(input$gobutton,{
      if (input$dateRange[2]&lt;input$dateRange[1]){print("You selected the date range option;however, the end date entered occurs before the starting date")}
      else{
        output$ntext1 &lt;- renderText({print("Analysis Complete...Data Loading...")});
        observe({    ## will 'observe' the button press
          if(input$gobutton){ 
            print("here")  ## for debugging
            Singledate=input$date;
            Daterange=input$dateRange;
            Alldata=input$checkbox;
            SourceSelect=input$checkGroup1;
            TranSelect=input$checkGroup2;
            AirlineSelect=input$x3_rows_selected;
            Mag_level=input$slider1;
            rv$data &lt;- MonitoringDDSIngestion(Alldata,Singledate,Daterange,SourceSelect,TranSelect,AirlineSelect,Mag_level)   ## store the data in the reactive value
          }
        })
      }
    }) 
  
    output$table &lt;- DT::renderDataTable(DT::datatable({
       data &lt;- rv$data
      if (input$sour != "All") {
        data &lt;- data[data[,1] == input$sour,]
      }else{data}
       if (input$sour1 != "All") {
         data &lt;-data[data[,2] == input$sour1,]
       }else{data}
  
       if (input$tran != "All") {
         data &lt;-data[data[,3] == input$tran,]
       }else{data}
  
    }), filter='top')
  })
  
  
  MonitoringIngestion2 &lt;-function(All,date1,date2, source_cd,tran_cd,airline_list,mag_level) {
      print(All); print(date1); print(date2); print(source_cd);print(tran_cd);print(airline_list);print(mag_level)
      setwd("C:Documents/Projects//Data")
      data = read.csv("November2015_December2015.csv",header=TRUE,sep=",",colClasses="factor")
    }
  data  
  </code></pre>