last check before cran v1

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: eudract
 Type: Package
 Title: Creates Safety Results Summary in XML to Upload to EudraCT, or ClinicalTrials.gov
-Date: 2023-07-14
-Version: 0.10.2
+Date: 2024-03-14
+Version: 1.0.0
 Authors@R: c(
     person("Simon", "Bond", email="[email protected]", role="cre"),
     person("Beatrice","Pantaleo", email="[email protected]", role="aut"))

build_dashboard.R

@@ -2,7 +2,7 @@ source("ct_user_details.R")
 rcmdcheck::rcmdcheck()
 devtools::load_all()
 
-devtools::build_vignettes(clean=FALSE)
+?devtools::build_vignettes(clean=FALSE)
 devtools::clean_vignettes()
 devtools::check()
 
@@ -22,6 +22,9 @@ devtools::build("../eudract_0.10.2.tar.gz", binary=TRUE)
 
 #devtools::build( binary=TRUE)
 # modify news.md, cran-comments.md README.rmd
+devtools::build_readme()
+spelling::spell_check_package()
+
 devtools::check_win_release()
 rcmdcheck::rcmdcheck()
 devtools::check_win_devel()

tests/testthat/test_errors.R

@@ -255,4 +255,29 @@ test_that("invalid ct inputs",{
 
     )
     ,"safety data is invalid")
-})
+})
+
+
+
+## SOC=Product Issue 
+#  For this SoC,  if we use the default MedDRA version =22, then uploading to EUdraACT comes with 
+# and error " EUTCT ID [100000167503] with version [22] is non current or has never been previously used."
+
+#  So the xlst conversion step detects this SoC and changes the version to 3, which EUdract likes
+
+if(FALSE){
+df <- data.frame(
+  subjid=1:2, term="bad drug",
+  soc=10077536,
+  serious=FALSE, related=FALSE,fatal=FALSE,
+  group=c("Experimental","Control")
+)
+safety_stats <- safety_summary(df, exposed=c("Experimental"=60,"Control"=67))
+simple_safety_xml(safety_stats, file = "simple.xml")
+eudract_convert(input="simple.xml",
+                output="eudract.xml")
+}
+# upload this version (to the test site) to check it works Ok
+# manually edit line 42 of eudract.xml
+# to <version>22</version> to reproduce the error on upload.
+