test: implement testing and benchmarking

.Rbuildignore

@@ -1 +1,3 @@
 ^\.github$
+^rdgidb\.Rproj$
+^\.Rproj\.user$

.gitignore

@@ -0,0 +1 @@
+.Rproj.user

DESCRIPTION

@@ -9,3 +9,12 @@ License: use_mit_license()
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.2
+Imports: 
+    data.table,
+    httr,
+    tidyr
+Suggests: 
+    devtools,
+    microbenchmark,
+    testthat (>= 3.0.0)
+Config/testthat/edition: 3

NAMESPACE

@@ -0,0 +1,2 @@
+# Generated by roxygen2: do not edit by hand
+

dgidb.R → R/dgidb.R

@@ -1,4 +1,4 @@
-library(tidyverse)
+library(tidyr)
 library(data.table)
 library(httr)
 

rdgidb.Rproj

@@ -0,0 +1,17 @@
+Version: 1.0
+
+RestoreWorkspace: No
+SaveWorkspace: No
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+Encoding: UTF-8
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes
+LineEndingConversion: Posix
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source
+PackageRoxygenize: rd,collate,namespace

tests/testthat.R

@@ -0,0 +1,12 @@
+# This file is part of the standard setup for testthat.
+# It is recommended that you do not modify it.
+#
+# Where should you do additional test configuration?
+# Learn more about the roles of various files in:
+# * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
+# * https://testthat.r-lib.org/articles/special-files.html
+
+library(devtools)
+
+devtools::load_all()
+devtools::test()

tests/testthat/test-dgidb.R

@@ -0,0 +1,38 @@
+library(testthat)
+library(microbenchmark)
+
+test_that("Test: Get Gene Interactions", {
+  gene_data <- get_interactions(c("BRAF", "PDGFRA"))
+  expect_no_error(gene_data)
+  print("Performing Benchmark on: Get Gene Interactions...")
+  benchmark_results <- microbenchmark(
+    get_interactions(c("BRAF", "PDGFRA")),
+    times = 10
+  )
+  print(benchmark_results)
+})
+
+test_that("Test: Get Drug Interactions", {
+  drug_data <- get_interactions(c("SUNITINIB", "ZALCITABINE"), search = "drugs")
+  expect_no_error(drug_data)
+  print("Performing Benchmark on: Get Drug Interactions...")
+  benchmark_results <- microbenchmark(
+    get_interactions(c("SUNITINIB", "ZALCITABINE"), search = "drugs"),
+    times = 10
+  )
+  print(benchmark_results)
+})
+
+test_that("Test: Get Drug Applications", {
+  drug_app_data <- get_drug_applications(
+    c("SUNITINIB", "EXENATIDE"),
+    use_processing = TRUE
+  )
+  expect_no_error(drug_app_data)
+  print("Performing Benchmark on: Get Drug Applications...")
+  benchmark_results <- microbenchmark(
+    get_drug_applications(c("SUNITINIB", "EXENATIDE"), use_processing = TRUE),
+    times = 10
+  )
+  print(benchmark_results)
+})