Last updated on 2020-02-11 08:48:07 CET.
Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
---|---|---|---|---|---|---|
r-devel-linux-x86_64-debian-clang | 0.0.2 | 3.06 | 63.29 | 66.35 | ERROR | |
r-devel-linux-x86_64-debian-gcc | 0.0.2 | 2.68 | 48.32 | 51.00 | ERROR | |
r-devel-linux-x86_64-fedora-clang | 0.0.2 | 82.84 | ERROR | |||
r-devel-linux-x86_64-fedora-gcc | 0.0.2 | 82.36 | ERROR | |||
r-devel-windows-ix86+x86_64 | 0.0.2 | 9.00 | 74.00 | 83.00 | ERROR | |
r-devel-windows-ix86+x86_64-gcc8 | 0.0.2 | 15.00 | 97.00 | 112.00 | ERROR | |
r-patched-linux-x86_64 | 0.0.2 | 3.05 | 55.32 | 58.37 | ERROR | |
r-patched-solaris-x86 | 0.0.2 | 95.80 | ERROR | |||
r-release-linux-x86_64 | 0.0.2 | 2.93 | 55.65 | 58.58 | ERROR | |
r-release-windows-ix86+x86_64 | 0.0.2 | 11.00 | 74.00 | 85.00 | ERROR | |
r-release-osx-x86_64 | 0.0.2 | OK | ||||
r-oldrel-windows-ix86+x86_64 | 0.0.2 | 5.00 | 77.00 | 82.00 | ERROR | |
r-oldrel-osx-x86_64 | 0.0.2 | OK |
Version: 0.0.2
Check: examples
Result: ERROR
Running examples in 'cheese-Ex.R' failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: stretch
> ### Title: Stretch one or variables over many columns by one or more keys
> ### Aliases: stretch
>
> ### ** Examples
>
> require(tidyverse)
Loading required package: tidyverse
-- Attaching packages --------------------------------------- tidyverse 1.3.0 --
v ggplot2 3.2.1 v purrr 0.3.3
v tibble 2.1.3 v dplyr 0.8.4
v tidyr 1.0.2 v stringr 1.4.0
v readr 1.3.1 v forcats 0.4.0
-- Conflicts ------------------------------------------ tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag() masks stats::lag()
>
> #Make data frame with multiple summary columns
> temp_summary <-
+
+ heart_disease %>%
+ group_by(
+ Sex,
+ HeartDisease,
+ BloodSugar
+ ) %>%
+ summarise(
+ Mean = mean(Age, na.rm = TRUE),
+ SD = sd(Age, na.rm = TRUE),
+ Median = median(Age, na.rm = TRUE)
+ ) %>%
+ ungroup()
>
> #1) Span summaries for each combination of Sex and BloodSugar
> temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease"
+ )
# A tibble: 2 x 13
HeartDisease Mean_Female_FAL~ SD_Female_FALSE Median_Female_F~ Mean_Male_FALSE
<fct> <dbl> <dbl> <dbl> <dbl>
1 No 54.0 10.4 53.5 50.2
2 Yes 59.7 3.61 61 55.8
# ... with 8 more variables: SD_Male_FALSE <dbl>, Median_Male_FALSE <dbl>,
# Mean_Female_TRUE <dbl>, SD_Female_TRUE <dbl>, Median_Female_TRUE <dbl>,
# Mean_Male_TRUE <dbl>, SD_Male_TRUE <dbl>, Median_Male_TRUE <dbl>
>
> #2) If "HeartDisease" wasn't fully crossed, use different joining to get only matching groups
> temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease",
+ join = inner_join
+ )
# A tibble: 2 x 13
HeartDisease Mean_Female_FAL~ SD_Female_FALSE Median_Female_F~ Mean_Male_FALSE
<fct> <dbl> <dbl> <dbl> <dbl>
1 No 54.0 10.4 53.5 50.2
2 Yes 59.7 3.61 61 55.8
# ... with 8 more variables: SD_Male_FALSE <dbl>, Median_Male_FALSE <dbl>,
# Mean_Female_TRUE <dbl>, SD_Female_TRUE <dbl>, Median_Female_TRUE <dbl>,
# Mean_Male_TRUE <dbl>, SD_Male_TRUE <dbl>, Median_Male_TRUE <dbl>
>
> #3) Only send two of the summaries
> temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease",
+ send = c("Mean", "Median")
+ )
# A tibble: 2 x 9
HeartDisease Mean_Female_FAL~ Median_Female_F~ Mean_Male_FALSE
<fct> <dbl> <dbl> <dbl>
1 No 54.0 53.5 50.2
2 Yes 59.7 61 55.8
# ... with 5 more variables: Median_Male_FALSE <dbl>, Mean_Female_TRUE <dbl>,
# Median_Female_TRUE <dbl>, Mean_Male_TRUE <dbl>, Median_Male_TRUE <dbl>
>
> #4) Clean HTML table with keys spanned over columns
> result <-
+ temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease",
+ extract_keys_as_header = TRUE,
+ keep_keys_in_header = FALSE
+ )
Error: Names must be unique.
Backtrace:
x
1. \-`%>%`(...)
2. +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
3. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
4. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
5. \-`_fseq`(`_lhs`)
6. \-magrittr::freduce(value, `_function_list`)
7. +-base::withVisible(function_list[[k]](value))
8. \-function_list[[k]](value)
9. \-cheese::stretch(...)
10. \-`%>%`(...)
11. +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
12. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
13. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
14. \-cheese:::`_fseq`(`_lhs`)
15. \-magrittr::freduce(value, `_function_list`)
16. +-base::withVisible(function_list[[k]](value))
17. \-function_list[[k]](value)
18.
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.0.2
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
...
--- re-building 'cheese.Rmd' using rmarkdown
Quitting from lines 149-163 (cheese.Rmd)
Error: processing vignette 'cheese.Rmd' failed with diagnostics:
Names must be unique.
--- failed re-building 'cheese.Rmd'
SUMMARY: processing the following file failed:
'cheese.Rmd'
Error: Vignette re-building failed.
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64
Version: 0.0.2
Check: examples
Result: ERROR
Running examples in ‘cheese-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: stretch
> ### Title: Stretch one or variables over many columns by one or more keys
> ### Aliases: stretch
>
> ### ** Examples
>
> require(tidyverse)
Loading required package: tidyverse
── Attaching packages ─────────────────────────────────────── tidyverse 1.3.0 ──
✔ ggplot2 3.2.1 ✔ purrr 0.3.3
✔ tibble 2.1.3 ✔ dplyr 0.8.4
✔ tidyr 1.0.2 ✔ stringr 1.4.0
✔ readr 1.3.1 ✔ forcats 0.4.0
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag() masks stats::lag()
>
> #Make data frame with multiple summary columns
> temp_summary <-
+
+ heart_disease %>%
+ group_by(
+ Sex,
+ HeartDisease,
+ BloodSugar
+ ) %>%
+ summarise(
+ Mean = mean(Age, na.rm = TRUE),
+ SD = sd(Age, na.rm = TRUE),
+ Median = median(Age, na.rm = TRUE)
+ ) %>%
+ ungroup()
>
> #1) Span summaries for each combination of Sex and BloodSugar
> temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease"
+ )
# A tibble: 2 x 13
HeartDisease Mean_Female_FAL… SD_Female_FALSE Median_Female_F… Mean_Male_FALSE
<fct> <dbl> <dbl> <dbl> <dbl>
1 No 54.0 10.4 53.5 50.2
2 Yes 59.7 3.61 61 55.8
# … with 8 more variables: SD_Male_FALSE <dbl>, Median_Male_FALSE <dbl>,
# Mean_Female_TRUE <dbl>, SD_Female_TRUE <dbl>, Median_Female_TRUE <dbl>,
# Mean_Male_TRUE <dbl>, SD_Male_TRUE <dbl>, Median_Male_TRUE <dbl>
>
> #2) If "HeartDisease" wasn't fully crossed, use different joining to get only matching groups
> temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease",
+ join = inner_join
+ )
# A tibble: 2 x 13
HeartDisease Mean_Female_FAL… SD_Female_FALSE Median_Female_F… Mean_Male_FALSE
<fct> <dbl> <dbl> <dbl> <dbl>
1 No 54.0 10.4 53.5 50.2
2 Yes 59.7 3.61 61 55.8
# … with 8 more variables: SD_Male_FALSE <dbl>, Median_Male_FALSE <dbl>,
# Mean_Female_TRUE <dbl>, SD_Female_TRUE <dbl>, Median_Female_TRUE <dbl>,
# Mean_Male_TRUE <dbl>, SD_Male_TRUE <dbl>, Median_Male_TRUE <dbl>
>
> #3) Only send two of the summaries
> temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease",
+ send = c("Mean", "Median")
+ )
# A tibble: 2 x 9
HeartDisease Mean_Female_FAL… Median_Female_F… Mean_Male_FALSE
<fct> <dbl> <dbl> <dbl>
1 No 54.0 53.5 50.2
2 Yes 59.7 61 55.8
# … with 5 more variables: Median_Male_FALSE <dbl>, Mean_Female_TRUE <dbl>,
# Median_Female_TRUE <dbl>, Mean_Male_TRUE <dbl>, Median_Male_TRUE <dbl>
>
> #4) Clean HTML table with keys spanned over columns
> result <-
+ temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease",
+ extract_keys_as_header = TRUE,
+ keep_keys_in_header = FALSE
+ )
Error: Names must be unique.
Backtrace:
█
1. └─`%>%`(...)
2. ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
3. └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
4. └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
5. └─`_fseq`(`_lhs`)
6. └─magrittr::freduce(value, `_function_list`)
7. ├─base::withVisible(function_list[[k]](value))
8. └─function_list[[k]](value)
9. └─cheese::stretch(...)
10. └─`%>%`(...)
11. ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
12. └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
13. └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
14. └─cheese:::`_fseq`(`_lhs`)
15. └─magrittr::freduce(value, `_function_list`)
16. ├─base::withVisible(function_list[[k]](value))
17.
Execution halted
Flavors: r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64
Version: 0.0.2
Check: examples
Result: ERROR
Running examples in ‘cheese-Ex.R’ failed
The error most likely occurred in:
> ### Name: stretch
> ### Title: Stretch one or variables over many columns by one or more keys
> ### Aliases: stretch
>
> ### ** Examples
>
> require(tidyverse)
Loading required package: tidyverse
── Attaching packages ─────────────────────────────────────── tidyverse 1.3.0 ──
✔ ggplot2 3.2.1 ✔ purrr 0.3.3
✔ tibble 2.1.3 ✔ dplyr 0.8.4
✔ tidyr 1.0.2 ✔ stringr 1.4.0
✔ readr 1.3.1 ✔ forcats 0.4.0
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag() masks stats::lag()
>
> #Make data frame with multiple summary columns
> temp_summary <-
+
+ heart_disease %>%
+ group_by(
+ Sex,
+ HeartDisease,
+ BloodSugar
+ ) %>%
+ summarise(
+ Mean = mean(Age, na.rm = TRUE),
+ SD = sd(Age, na.rm = TRUE),
+ Median = median(Age, na.rm = TRUE)
+ ) %>%
+ ungroup()
>
> #1) Span summaries for each combination of Sex and BloodSugar
> temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease"
+ )
# A tibble: 2 x 13
HeartDisease Mean_Female_FAL… SD_Female_FALSE Median_Female_F… Mean_Male_FALSE
<fct> <dbl> <dbl> <dbl> <dbl>
1 No 54.0 10.4 53.5 50.2
2 Yes 59.7 3.61 61 55.8
# … with 8 more variables: SD_Male_FALSE <dbl>, Median_Male_FALSE <dbl>,
# Mean_Female_TRUE <dbl>, SD_Female_TRUE <dbl>, Median_Female_TRUE <dbl>,
# Mean_Male_TRUE <dbl>, SD_Male_TRUE <dbl>, Median_Male_TRUE <dbl>
>
> #2) If "HeartDisease" wasn't fully crossed, use different joining to get only matching groups
> temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease",
+ join = inner_join
+ )
# A tibble: 2 x 13
HeartDisease Mean_Female_FAL… SD_Female_FALSE Median_Female_F… Mean_Male_FALSE
<fct> <dbl> <dbl> <dbl> <dbl>
1 No 54.0 10.4 53.5 50.2
2 Yes 59.7 3.61 61 55.8
# … with 8 more variables: SD_Male_FALSE <dbl>, Median_Male_FALSE <dbl>,
# Mean_Female_TRUE <dbl>, SD_Female_TRUE <dbl>, Median_Female_TRUE <dbl>,
# Mean_Male_TRUE <dbl>, SD_Male_TRUE <dbl>, Median_Male_TRUE <dbl>
>
> #3) Only send two of the summaries
> temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease",
+ send = c("Mean", "Median")
+ )
# A tibble: 2 x 9
HeartDisease Mean_Female_FAL… Median_Female_F… Mean_Male_FALSE
<fct> <dbl> <dbl> <dbl>
1 No 54.0 53.5 50.2
2 Yes 59.7 61 55.8
# … with 5 more variables: Median_Male_FALSE <dbl>, Mean_Female_TRUE <dbl>,
# Median_Female_TRUE <dbl>, Mean_Male_TRUE <dbl>, Median_Male_TRUE <dbl>
>
> #4) Clean HTML table with keys spanned over columns
> result <-
+ temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease",
+ extract_keys_as_header = TRUE,
+ keep_keys_in_header = FALSE
+ )
Error: Names must be unique.
Backtrace:
█
1. └─`%>%`(...)
2. ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
3. └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
4. └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
5. └─`_fseq`(`_lhs`)
6. └─magrittr::freduce(value, `_function_list`)
7. ├─base::withVisible(function_list[[k]](value))
8. └─function_list[[k]](value)
9. └─cheese::stretch(...)
10. └─`%>%`(...)
11. ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
12. └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
13. └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
14. └─cheese:::`_fseq`(`_lhs`)
15. └─magrittr::freduce(value, `_function_list`)
16. ├─base::withVisible(function_list[[k]](value))
17.
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86
Version: 0.0.2
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
--- re-building ‘cheese.Rmd’ using rmarkdown
Quitting from lines 149-163 (cheese.Rmd)
Error: processing vignette 'cheese.Rmd' failed with diagnostics:
Names must be unique.
--- failed re-building ‘cheese.Rmd’
SUMMARY: processing the following file failed:
‘cheese.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64, r-devel-windows-ix86+x86_64-gcc8, r-release-windows-ix86+x86_64
Version: 0.0.2
Check: examples
Result: ERROR
Running examples in 'cheese-Ex.R' failed
The error most likely occurred in:
> ### Name: stretch
> ### Title: Stretch one or variables over many columns by one or more keys
> ### Aliases: stretch
>
> ### ** Examples
>
> require(tidyverse)
Loading required package: tidyverse
-- Attaching packages --------------------------------------- tidyverse 1.3.0 --
v ggplot2 3.2.1 v purrr 0.3.3
v tibble 2.1.3 v dplyr 0.8.4
v tidyr 1.0.2 v stringr 1.4.0
v readr 1.3.1 v forcats 0.4.0
-- Conflicts ------------------------------------------ tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag() masks stats::lag()
>
> #Make data frame with multiple summary columns
> temp_summary <-
+
+ heart_disease %>%
+ group_by(
+ Sex,
+ HeartDisease,
+ BloodSugar
+ ) %>%
+ summarise(
+ Mean = mean(Age, na.rm = TRUE),
+ SD = sd(Age, na.rm = TRUE),
+ Median = median(Age, na.rm = TRUE)
+ ) %>%
+ ungroup()
>
> #1) Span summaries for each combination of Sex and BloodSugar
> temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease"
+ )
# A tibble: 2 x 13
HeartDisease Mean_Female_FAL~ SD_Female_FALSE Median_Female_F~ Mean_Male_FALSE
<fct> <dbl> <dbl> <dbl> <dbl>
1 No 54.0 10.4 53.5 50.2
2 Yes 59.7 3.61 61 55.8
# ... with 8 more variables: SD_Male_FALSE <dbl>, Median_Male_FALSE <dbl>,
# Mean_Female_TRUE <dbl>, SD_Female_TRUE <dbl>, Median_Female_TRUE <dbl>,
# Mean_Male_TRUE <dbl>, SD_Male_TRUE <dbl>, Median_Male_TRUE <dbl>
>
> #2) If "HeartDisease" wasn't fully crossed, use different joining to get only matching groups
> temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease",
+ join = inner_join
+ )
# A tibble: 2 x 13
HeartDisease Mean_Female_FAL~ SD_Female_FALSE Median_Female_F~ Mean_Male_FALSE
<fct> <dbl> <dbl> <dbl> <dbl>
1 No 54.0 10.4 53.5 50.2
2 Yes 59.7 3.61 61 55.8
# ... with 8 more variables: SD_Male_FALSE <dbl>, Median_Male_FALSE <dbl>,
# Mean_Female_TRUE <dbl>, SD_Female_TRUE <dbl>, Median_Female_TRUE <dbl>,
# Mean_Male_TRUE <dbl>, SD_Male_TRUE <dbl>, Median_Male_TRUE <dbl>
>
> #3) Only send two of the summaries
> temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease",
+ send = c("Mean", "Median")
+ )
# A tibble: 2 x 9
HeartDisease Mean_Female_FAL~ Median_Female_F~ Mean_Male_FALSE
<fct> <dbl> <dbl> <dbl>
1 No 54.0 53.5 50.2
2 Yes 59.7 61 55.8
# ... with 5 more variables: Median_Male_FALSE <dbl>, Mean_Female_TRUE <dbl>,
# Median_Female_TRUE <dbl>, Mean_Male_TRUE <dbl>, Median_Male_TRUE <dbl>
>
> #4) Clean HTML table with keys spanned over columns
> result <-
+ temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease",
+ extract_keys_as_header = TRUE,
+ keep_keys_in_header = FALSE
+ )
Error: Names must be unique.
Backtrace:
x
1. \-`%>%`(...)
2. +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
3. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
4. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
5. \-`_fseq`(`_lhs`)
6. \-magrittr::freduce(value, `_function_list`)
7. +-base::withVisible(function_list[[k]](value))
8. \-function_list[[k]](value)
9. \-cheese::stretch(...)
10. \-`%>%`(...)
11. +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
12. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
13. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
14. \-cheese:::`_fseq`(`_lhs`)
15. \-magrittr::freduce(value, `_function_list`)
16. +-base::withVisible(function_list[[k]](value))
17. \-function_list[[k]](value)
18.
Execution halted
Flavors: r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64, r-oldrel-windows-ix86+x86_64
Version: 0.0.2
Check: examples
Result: ERROR
Running examples in 'cheese-Ex.R' failed
The error most likely occurred in:
> ### Name: stretch
> ### Title: Stretch one or variables over many columns by one or more keys
> ### Aliases: stretch
>
> ### ** Examples
>
> require(tidyverse)
Loading required package: tidyverse
-- Attaching packages --------------------------------------- tidyverse 1.3.0 --
v ggplot2 3.2.1 v purrr 0.3.3
v tibble 2.1.3 v dplyr 0.8.3
v tidyr 1.0.2 v stringr 1.4.0
v readr 1.3.1 v forcats 0.4.0
-- Conflicts ------------------------------------------ tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag() masks stats::lag()
>
> #Make data frame with multiple summary columns
> temp_summary <-
+
+ heart_disease %>%
+ group_by(
+ Sex,
+ HeartDisease,
+ BloodSugar
+ ) %>%
+ summarise(
+ Mean = mean(Age, na.rm = TRUE),
+ SD = sd(Age, na.rm = TRUE),
+ Median = median(Age, na.rm = TRUE)
+ ) %>%
+ ungroup()
>
> #1) Span summaries for each combination of Sex and BloodSugar
> temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease"
+ )
# A tibble: 2 x 13
HeartDisease Mean_Female_FAL~ SD_Female_FALSE Median_Female_F~ Mean_Male_FALSE
<fct> <dbl> <dbl> <dbl> <dbl>
1 No 54.0 10.4 53.5 50.2
2 Yes 59.7 3.61 61 55.8
# ... with 8 more variables: SD_Male_FALSE <dbl>, Median_Male_FALSE <dbl>,
# Mean_Female_TRUE <dbl>, SD_Female_TRUE <dbl>, Median_Female_TRUE <dbl>,
# Mean_Male_TRUE <dbl>, SD_Male_TRUE <dbl>, Median_Male_TRUE <dbl>
>
> #2) If "HeartDisease" wasn't fully crossed, use different joining to get only matching groups
> temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease",
+ join = inner_join
+ )
# A tibble: 2 x 13
HeartDisease Mean_Female_FAL~ SD_Female_FALSE Median_Female_F~ Mean_Male_FALSE
<fct> <dbl> <dbl> <dbl> <dbl>
1 No 54.0 10.4 53.5 50.2
2 Yes 59.7 3.61 61 55.8
# ... with 8 more variables: SD_Male_FALSE <dbl>, Median_Male_FALSE <dbl>,
# Mean_Female_TRUE <dbl>, SD_Female_TRUE <dbl>, Median_Female_TRUE <dbl>,
# Mean_Male_TRUE <dbl>, SD_Male_TRUE <dbl>, Median_Male_TRUE <dbl>
>
> #3) Only send two of the summaries
> temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease",
+ send = c("Mean", "Median")
+ )
# A tibble: 2 x 9
HeartDisease Mean_Female_FAL~ Median_Female_F~ Mean_Male_FALSE
<fct> <dbl> <dbl> <dbl>
1 No 54.0 53.5 50.2
2 Yes 59.7 61 55.8
# ... with 5 more variables: Median_Male_FALSE <dbl>, Mean_Female_TRUE <dbl>,
# Median_Female_TRUE <dbl>, Mean_Male_TRUE <dbl>, Median_Male_TRUE <dbl>
>
> #4) Clean HTML table with keys spanned over columns
> result <-
+ temp_summary %>%
+ stretch(
+ keys = c("Sex", "BloodSugar"),
+ keep = "HeartDisease",
+ extract_keys_as_header = TRUE,
+ keep_keys_in_header = FALSE
+ )
Error: Names must be unique.
Backtrace:
x
1. \-`%>%`(...)
2. +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
3. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
4. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
5. \-`_fseq`(`_lhs`)
6. \-magrittr::freduce(value, `_function_list`)
7. +-base::withVisible(function_list[[k]](value))
8. \-function_list[[k]](value)
9. \-cheese::stretch(...)
10. \-`%>%`(...)
11. +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
12. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
13. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
14. \-cheese:::`_fseq`(`_lhs`)
15. \-magrittr::freduce(value, `_function_list`)
16. +-base::withVisible(function_list[[k]](value))
17. \-function_list[[k]](value)
18.
Execution halted
Flavor: r-devel-windows-ix86+x86_64-gcc8
Version: 0.0.2
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
...
--- re-building ‘cheese.Rmd’ using rmarkdown
Warning in engine$weave(file, quiet = quiet, encoding = enc) :
Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
Quitting from lines 149-163 (cheese.Rmd)
Error: processing vignette 'cheese.Rmd' failed with diagnostics:
Names must be unique.
--- failed re-building ‘cheese.Rmd’
SUMMARY: processing the following file failed:
‘cheese.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavor: r-patched-solaris-x86
Version: 0.0.2
Check: re-building of vignette outputs
Result: WARN
Error in re-building vignettes:
...
Quitting from lines 149-163 (cheese.Rmd)
Error: processing vignette 'cheese.Rmd' failed with diagnostics:
Names must be unique.
Execution halted
Flavor: r-oldrel-windows-ix86+x86_64