FreesearchR/tests/testthat/_snaps/data_plots.md

# all_but works

    Code
      all_but(1:10, c(2, 3), 11, 5)
    Output
      [1]  1  4  6  7  8  9 10

# subset_types works

    Code
      subset_types(default_parsing(mtcars), "continuous")
    Output
      # A tibble: 32 x 6
           mpg  disp    hp  drat    wt  qsec
         <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
       1  21    160    110  3.9   2.62  16.5
       2  21    160    110  3.9   2.88  17.0
       3  22.8  108     93  3.85  2.32  18.6
       4  21.4  258    110  3.08  3.22  19.4
       5  18.7  360    175  3.15  3.44  17.0
       6  18.1  225    105  2.76  3.46  20.2
       7  14.3  360    245  3.21  3.57  15.8
       8  24.4  147.    62  3.69  3.19  20  
       9  22.8  141.    95  3.92  3.15  22.9
      10  19.2  168.   123  3.92  3.44  18.3
      # i 22 more rows

---

    Code
      subset_types(default_parsing(mtcars), c("dichotomous", "ordinal", "categorical"))
    Output
      # A tibble: 32 x 5
         cyl   vs    am    gear  carb 
         <fct> <lgl> <lgl> <fct> <fct>
       1 6     FALSE TRUE  4     4    
       2 6     FALSE TRUE  4     4    
       3 4     TRUE  TRUE  4     1    
       4 6     TRUE  FALSE 3     1    
       5 8     FALSE FALSE 3     2    
       6 6     TRUE  FALSE 3     1    
       7 8     FALSE FALSE 3     4    
       8 4     TRUE  FALSE 4     2    
       9 4     TRUE  FALSE 4     2    
      10 6     TRUE  FALSE 4     4    
      # i 22 more rows

---

    Code
      subset_types(default_parsing(mtcars), "test")
    Output
      # A tibble: 32 x 0

# possible_plots works

    Code
      possible_plots(mtcars$mpg)
    Output
      [1] "Violin plot"  "Scatter plot" "Box plot"    

---

    Code
      possible_plots(default_parsing(mtcars)["cyl"])
    Output
      [1] "Stacked horizontal bars" "Violin plot"            
      [3] "Sankey plot"             "Box plot"               

# get_plot_options works

    Code
      get_plot_options((function(.x) {
        .x[[1]]
      })(possible_plots(default_parsing(mtcars)["mpg"])))
    Output
      $plot_violin
      $plot_violin$fun
      [1] "plot_violin"
      
      $plot_violin$descr
      [1] "Violin plot"
      
      $plot_violin$note
      [1] "A modern alternative to the classic boxplot to visualise data distribution"
      
      $plot_violin$primary.type
      [1] "datatime"    "continuous"  "dichotomous" "ordinal"     "categorical"
      
      $plot_violin$secondary.type
      [1] "dichotomous" "ordinal"     "categorical"
      
      $plot_violin$secondary.multi
      [1] FALSE
      
      $plot_violin$secondary.extra
      [1] "none"
      
      $plot_violin$tertiary.type
      [1] "dichotomous" "ordinal"     "categorical"
      
      

# get_label works

    Code
      get_label(mtcars, var = "mpg")
    Output
      [1] "mpg"

---

    Code
      get_label(mtcars)
    Output
      [1] "mtcars"

---

    Code
      get_label(mtcars$mpg)
    Output
      [1] "mtcars$mpg"

---

    Code
      get_label(gtsummary::trial, var = "trt")
    Output
      [1] "Chemotherapy Treatment"

---

    Code
      get_label(1:10)
    Output
      [1] "1:10"

# line_break works

    Code
      line_break("Lorem ipsum... you know the routine")
    Output
      [1] "Lorem ipsum... you\nknow the routine"

---

    Code
      line_break(paste(sample(letters[1:10], 100, TRUE), collapse = ""), force = TRUE,
      lineLength = 5)
    Output
      [1] "cjijd\ncjcfb\nihfgi\nfcffh\neaddf\ngegjb\njeegi\nfdhbe\nbgcac\nibfbe\nejibi\nggedh\ngajhf\ngadca\nijeig\ncieeh\ncah\n"

---

    Code
      line_break(paste(sample(letters[1:10], 100, TRUE), collapse = ""), force = FALSE)
    Output
      [1] "idjcgcjceeefchffjdbjafabigaiadcfdcfgfgibibhcjbbbejabddeheafggcgbdfbcbeegijggbibaghfidjgeaefhcadbfjig"