new tibble export

vignettes/datasets.Rmd

@@ -80,6 +80,7 @@ download_txt <- function(filename) {
 
 print_df <- function(x, rows = 6) {
   x %>% 
+    as.data.frame(stringsAsFactors = FALSE) %>% 
     head(n = rows) %>% 
     mutate_all(function(x) {
       if (is.list(x)) {
@@ -285,3 +286,42 @@ Currently included dosages in the data set are meant for: `r AMR:::format_eucast
 dosage %>% 
   print_df()
 ```
+
+
+## `example_isolates`: Example Data for Practice
+
+`r structure_txt(example_isolates)`
+
+This data set is in R available as `example_isolates`, after you load the `AMR` package.
+
+`r download_txt("example_isolates")`
+
+### Source
+
+This data set contains randomised fictitious data, but reflects reality and can be used to practise AMR data analysis.
+
+### Example content
+
+```{r, echo = FALSE}
+example_isolates %>% 
+  print_df()
+```
+
+## `example_isolates_unclean`: Example Data for Practice
+
+`r structure_txt(example_isolates_unclean)`
+
+This data set is in R available as `example_isolates_unclean`, after you load the `AMR` package.
+
+`r download_txt("example_isolates_unclean")`
+
+### Source
+
+This data set contains randomised fictitious data, but reflects reality and can be used to practise AMR data analysis.
+
+### Example content
+
+```{r, echo = FALSE}
+example_isolates_unclean %>% 
+  print_df()
+```