diff --git a/DESCRIPTION b/DESCRIPTION
index d652038a..e6df7330 100755
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -7,19 +7,40 @@ Authors@R: c(
given = c("Matthijs", "S."),
family = "Berends",
email = "m.s.berends@umcg.nl",
- role = c("aut", "cre"),
+ role = c("aut", "dis", "cre"),
comment = c(ORCID = "0000-0001-7620-1800")),
person(
given = c("Christian", "F."),
family = "Luz",
email = "c.f.luz@umcg.nl",
- role = c("aut", "ctb"),
+ role = c("aut", "dis"),
comment = c(ORCID = "0000-0001-5809-5995")),
person(
given = c("Erwin", "E.A."),
family = "Hassing",
email = "e.hassing@certe.nl",
- role = "ctb"))
+ role = "ctb"),
+ person(
+ given = "Corinna",
+ family = "Glasner",
+ email = "c.glasner@umcg.nl",
+ role = "ths",
+ comment = c(ORCID = "0000-0003-1241-1328")),
+ person(
+ given = c("Alex", "W."),
+ family = "Friedrich",
+ email = "alex.friedrich@umcg.nl",
+ role = c("ths", "ldr"),
+ comment = c(ORCID = "0000-0003-4881-038X")),
+ person(
+ given = "Bhanu",
+ family = "Sinha",
+ email = "b.sinha@umcg.nl",
+ role = "ths",
+ comment = c(ORCID = "0000-0003-1634-0010")),
+ person(
+ family = "University of Groningen",
+ role = "uvp"))
Description: Functions to simplify the analysis of Antimicrobial Resistance (AMR)
of microbial isolates, by using new S3 classes and applying EUCAST expert rules
on antibiograms according to Leclercq (2013)
diff --git a/NEWS.md b/NEWS.md
index 80c5afdb..52828cad 100755
--- a/NEWS.md
+++ b/NEWS.md
@@ -58,6 +58,7 @@
#### Other
* Unit testing for all Linux and macOS releases of R 3.1 and higher: https://travis-ci.org/msberends/AMR
+* Added thesis advisors to DESCRIPTION file
# 0.2.0 (latest stable version)
**Published on CRAN: 2018-05-03**
diff --git a/R/freq.R b/R/freq.R
index ad832703..9346a233 100755
--- a/R/freq.R
+++ b/R/freq.R
@@ -326,7 +326,7 @@ frequency_tbl <- function(x,
header <- header %>% paste0(' (unique: ', boxplot.stats(x)$out %>% n_distinct(), ')')
}
}
- if (any(class(x) == "rsi")) {
+ if (NROW(x) > 0 & any(class(x) == "rsi")) {
header <- header %>% paste0('\n')
cnt_S <- sum(x == "S")
cnt_I <- sum(x == "I")
diff --git a/README.md b/README.md
index b68843fc..6fbee0e2 100755
--- a/README.md
+++ b/README.md
@@ -6,14 +6,17 @@ This R package was created for academic research by PhD students of the Faculty
:arrow_forward: Download it with `install.packages("AMR")` or see below for other possibilities.
## Authors
-
- - [Berends MS](https://github.com/msberends)1,2, PhD Student
- - [Luz CF](https://github.com/ceefluz)1, PhD Student
- - [Hassing EEA](https://github.com/erwinhassing)2, Data Analyst (contributor)
+ Matthijs S. Berends1,2,a,
+ Christian F. Luz1,a,
+Erwin E.A. Hassing2,
+ Corinna Glasner1,b,
+ Alex W. Friedrich1,b,
+ Bhanu Sinha1,b
-1 Department of Medical Microbiology, University of Groningen, University Medical Center Groningen, Groningen, the Netherlands
-
-2 Certe Medical Diagnostics & Advice, Groningen, the Netherlands
+1 Department of Medical Microbiology, University of Groningen, University Medical Center Groningen, Groningen, the Netherlands
+2 Certe Medical Diagnostics & Advice, Groningen, the Netherlands
+a R package author and dissertant
+b Thesis advisor