0

I am trying to capture output using sink. At the first, I have tried capture.output() function to stored to .txt file. However, it gives me as following:

[38;5;246m# A tibble: 1 x 7[39m
  .y.   group1               group2                         n1    n2 statistic         p
[38;5;250m*[39m [3m[38;5;246m<chr>[39m[23m [3m[38;5;246m<chr>[39m[23m                [3m[38;5;246m<chr>[39m[23m                       [3m[38;5;246m<int>[39m[23m [3m[38;5;246m<int>[39m[23m     [3m[38;5;246m<dbl>[39m[23m     [3m[38;5;246m<dbl>[39m[23m
[38;5;250m1[39m SP_ER Empire_new_use_cases G9_MWS_Vision_new_use_cases    24    24       300 0.000[4m0[24m[4m1[24m[4m9[24m3

Later, I am using "sink(): function to record the output. However, it gives me the same result on top, and here is the code:

  Wilcoxon_SP_ER <- wilcox_test(task_data_device_all, SP_ER ~ device, paired = TRUE)
  print(Wilcoxon_SP_ER)
  sink(file = paste0(wilcox_result, "/Wilcox_", devices_string, ".txt"))
  print(Wilcoxon_SP_ER)
  sink(file = NULL)

I am trying to record/stored the same output as using print() function. Like following:

# A tibble: 1 x 7
  .y.   group1               group2                         n1    n2 statistic         p
* <chr> <chr>                <chr>                       <int> <int>     <dbl>     <dbl>
1 SP_ER Empire_new_use_cases G9_MWS_Vision_new_use_cases    24    24       300 0.0000193

How can I fix this? Thanks!

user2805351
  • 13
  • 1
  • 6
  • Does this answer your question? [sink produces weird characters](https://stackoverflow.com/questions/69547418/sink-produces-weird-characters) – GordonShumway May 02 '22 at 03:32
  • Why are you using `sink` if `rstatix::wilcox_test` returns a tibble? Use `write.table` or friends instead. Is this a [XY Problem](https://meta.stackexchange.com/questions/66377/what-is-the-xy-problem)? – Rui Barradas May 02 '22 at 05:27

0 Answers0