trying to fix data issue

ytakemon · Mar 2, 2022 · 6a1bbc6 · 6a1bbc6
1 parent abe4f14
commit 6a1bbc6
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -17,7 +17,6 @@ Description: Genetic Interaction Network IdentifieR (GINIR) leverages data gener
   A manuscript describing the process is being prepared.
 License: GPL (>= 3)
 Encoding: UTF-8
-LazyData: false
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.1.2.9000
 Suggests:

diff --git a/R/list_available_cancer_type.R b/R/list_available_cancer_type.R
@@ -15,7 +15,7 @@
 list_available_cancer_types <- function(){
   # Load necessary data
   sample_annot <- NULL # see: https://support.bioconductor.org/p/24756/
-  data("sample_annot", envir = environment())
+  load("data/sample_annot", envir = environment())
 
   # Main
   sample_annot %>% 
@@ -32,10 +32,10 @@ list_available_cancer_types <- function(){
 list_available_cancer_subtypes <- function(input_disease){
   # Load necessary data
   sample_annot <- NULL # see: https://support.bioconductor.org/p/24756/
-  data("sample_annot", envir = environment())
+  load("data/sample_annot.rda", envir = environment())
 
   # Main
   sample_annot %>% 
     dplyr::filter(.data$disease %in% input_disease) %>%
     dplyr::pull(.data$disease_subtype) %>% unique
-}
+}
diff --git a/README.Rmd b/README.Rmd
@@ -14,7 +14,7 @@ knitr::opts_chunk$set(
 )
 
 # Flip the switch to evaluate all when ready for final render
-Final_eval <- FALSE
+Final_eval <- TRUE
 ```
 
 # Genetic Interaction Network IdentifieR (GINIR)