explicitly namespace some more fxns

microbiomeDB · Nov 22, 2023 · d3cbdaf · d3cbdaf
1 parent f948c84
commit d3cbdaf
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -9,3 +9,5 @@ importFrom(DT,renderDT)
 importFrom(bslib,bs_theme)
 importFrom(r2d3,html_dependencies_d3)
 importFrom(shinyjs,useShinyjs)
+importFrom(stats,rnorm)
+importFrom(utils,read.table)
diff --git a/R/server.R b/R/server.R
@@ -15,6 +15,8 @@ addRowNames <- function(corMat) {
 }
 
 #' @importFrom DT renderDT
+#' @importFrom utils read.table
+#' @importFrom stats rnorm
 #' @import ggplot2
 server <- function(input, output, session) {
 
@@ -26,7 +28,7 @@ server <- function(input, output, session) {
 
     tryCatch({
       if (fileExtension %in% c('tab','tsv')) {
-        matrixData <- read.table(file$datapath, header = TRUE, sep = '\t')
+        matrixData <- utils::read.table(file$datapath, header = TRUE, sep = '\t')
       } else if (fileExtension == 'rds') {
         matrixData <- readRDS(file$datapath)
       } else {
@@ -67,7 +69,7 @@ server <- function(input, output, session) {
     correlationMatrix <- req(correlationMatrix())
     # todo fix this to take two data tables and find correlations and pvalues ourselves
     # this is a placeholder
-    p_values <- abs(rnorm(length(correlationMatrix[lower.tri(correlationMatrix)]), .05, .5))*.0001
+    p_values <- abs(stats::rnorm(length(correlationMatrix[lower.tri(correlationMatrix)]), .05, .5))*.0001
     return(p_values)
   })