Merge branch 'main' into website

DESCRIPTION

@@ -1,11 +1,16 @@
 Package: SENDsanitizer
-Title: What the Package Does (One Line, Title Case)
+Title: Generate Fake SEND Data
 Version: 0.0.0.9000
-Authors@R: 
-    person("First", "Last", , "[email protected]", role = c("aut", "cre"),
-           comment = c(ORCID = "YOUR-ORCID-ID"))
-Description: What the package does (one paragraph).
+Authors@R:
+ c(
+    person("Yousuf", "Ali", email=  "[email protected]", role = c( "cre",  "aut")),
+    person("Susan", "Butler", email= "[email protected]", role = c("aut")),
+    person("Kevin", "Snyder", email= "[email protected]", role = c("aut")),
+    person(given = "FDA", role = "cph"))
+Description: An R package that that generate fake SEND data based on real SEND data.
 License: MIT + file LICENSE
+URL: https://github.com/phuse-org/SENDsanitizer
+BugReports: https://github.com/phuse-org/SENDsanitizer/issues
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.1

R/helper.R

@@ -60,9 +60,7 @@ get_trt_group <- function(ExampleStudy1) {
     if(tolower(st_species) =="rat") {
       # see if tkdesc in txparmcd
       parmcd <- unique(tx[['TXPARMCD']])
-      if (condition) {
-      }
-      ('TKDESC' %in% parmcd){
+      if ('TKDESC' %in% parmcd){
         tkdesc_in_parmcd <- TRUE
       } else {
         tkdesc_in_parmcd <- FALSE