don't need DT:: anymore

jminnier · Nov 4, 2016 · 7477cb1 · 7477cb1
1 parent d6e1340
commit 7477cb1
Show file tree

Hide file tree

Showing 6 changed files with 10 additions and 10 deletions.
diff --git a/server-data.R b/server-data.R
@@ -34,8 +34,8 @@ output$downloadData <- downloadHandler(filename = c('all_data.csv'),
 
 
 
-output$outdat <- DT::renderDataTable({
+output$outdat <- renderDataTable({
   tmpdat = AllRNAdatReactive()
   tmpdat[,sapply(tmpdat,is.numeric)] <- signif(tmpdat[,sapply(tmpdat,is.numeric)],3)
-  DT::datatable(tmpdat)
+  datatable(tmpdat)
 })
diff --git a/server-dotplot.R b/server-dotplot.R
@@ -103,10 +103,10 @@ DataDotplotReactive <- reactive({
   return(subdat)
 })
 
-output$dat_dotplot <- DT::renderDataTable({
+output$dat_dotplot <- renderDataTable({
   tmpdat = DataDotplotReactive()
   tmpdat[,sapply(tmpdat,is.numeric)] <- signif(tmpdat[,sapply(tmpdat,is.numeric)],3)
-  DT::datatable(tmpdat)
+  datatable(tmpdat)
 }
 )			
 

diff --git a/server-heatmap.R b/server-heatmap.R
@@ -307,11 +307,11 @@ output$numheat <- renderText({
   paste("Chosen filters result in ",tmpnum, " genes.")
 })
 
-output$heatdat_rna <- DT::renderDataTable({
+output$heatdat_rna <- renderDataTable({
   if(input$action_heatmaps==0) return()
   tmpdat = HeatdatReactive_rna()
   tmpdat[,sapply(tmpdat,is.numeric)] <- signif(tmpdat[,sapply(tmpdat,is.numeric)],3)
-  DT::datatable(tmpdat)
+  datatable(tmpdat)
 },options=list(sDom="ilftpr"))
 
 output$downloadHeatmapData_rna <- downloadHandler(

diff --git a/server-inputdata.R b/server-inputdata.R
@@ -427,12 +427,12 @@ observeEvent(inputDataReactive(),({
 })
 )
 
-output$analysisoutput <- DT::renderDataTable({
+output$analysisoutput <- renderDataTable({
   print("output$analysisoutput")
   getresults <- analyzeDataReactive()
   res = getresults$results
   res[,sapply(res,is.numeric)] <- signif(res[,sapply(res,is.numeric)],3)
-  DT::datatable(res)
+  datatable(res)
 })
 
 

diff --git a/ui-tab-dotplot.R b/ui-tab-dotplot.R
@@ -71,7 +71,7 @@ tabPanel("Gene Expression Boxplots",
                   ## ==================================================================================== ## 
                   tabPanel(title="Data Output",
                            downloadButton('downloadSubsetData', 'Download Data Subset as CSV File'),
-                           DT::dataTableOutput("dat_dotplot")
+                           dataTableOutput("dat_dotplot")
                   )#tabsetPanel
                 ))#column
 

diff --git a/ui-tab-heatmap.R b/ui-tab-heatmap.R
@@ -132,7 +132,7 @@ tabPanel("Heatmaps",
                   tabPanel(title="Data Output",
                            downloadButton('downloadHeatmapData_rna', 
                                           'Download Heatmap Data as CSV File'),
-                           DT::dataTableOutput("heatdat_rna"))
+                           dataTableOutput("heatdat_rna"))
                 )#tabsetPanel
          )#column
          )#fluidrow