Is your feature request related to a problem? Please describe. <p

<a target="_blank" rel="noopener noreferrer nofollow" href="https://user-images.github

100 folders in less than 10 seconds: <div class="snippet-clipboard-content notrans

Timing it: <div class="snippet-clipboard-content notranslate position-relative ove

Improve speed of pir_plot_from_files about pirouette HOT 4 CLOSED

richelbilderbeek commented on August 16, 2024

Improve speed of pir_plot_from_files

from pirouette.

Comments (4)

richelbilderbeek commented on August 16, 2024

from pirouette.

richelbilderbeek commented on August 16, 2024

100 folders in less than 10 seconds:

library(pirouette)
library(testthat)


#super_folder <- "/home/richel/pirouette_example_42/pirouette_example_42/example_42"
#super_folder <- "/media/richel/D2B40C93B40C7BEB/pirouette_examples/pirouette_example_18/example_18"
#super_folder <- "/home/richel/pirouette_example_42/pirouette_example_42/example_42"
super_folder <- "/home/richel/pirouette_example_32/pirouette_example_32/example_32"

folder_names <- list.dirs(
  super_folder
)
folder_names <- folder_names[folder_names != super_folder]
folder_names
expect_true(all(dir.exists(folder_names)))

long_pir_out <- create_long_pir_out_from_folders(folder_names = folder_names)
p <- pir_plot_from_long(long_pir_out)
p + ggplot2::ggtitle("") + ggplot2::ggsave("~/example_42.png", width = 7, height = 7)
p

from pirouette.

richelbilderbeek commented on August 16, 2024

Glory to 👏👏👏 dplyr::bind_rows 👏👏👏

from pirouette.

richelbilderbeek commented on August 16, 2024

Timing it:

library(pirouette)
library(testthat)


#super_folder <- "/home/richel/pirouette_example_42/pirouette_example_42/example_42"
#super_folder <- "/media/richel/D2B40C93B40C7BEB/pirouette_examples/pirouette_example_18/example_18"
#super_folder <- "/home/richel/pirouette_example_42/pirouette_example_42/example_42"
super_folder <- "/home/richel/pirouette_example_32/pirouette_example_32/example_32"

folder_names <- list.dirs(
  super_folder
)
folder_names <- folder_names[folder_names != super_folder]
folder_names
expect_true(all(dir.exists(folder_names)))

Sys.time()
long_pir_out <- create_tree_and_model_errors_from_folders(
  folder_names = folder_names
)
p <- pir_plot_from_long(long_pir_out)
p + ggplot2::ggtitle("") + ggplot2::ggsave("~/example_42.png", width = 7, height = 7)
p
Sys.time()

results in:

> Sys.time()
[1] "2020-07-14 12:50:19 CEST"
> long_pir_out <- create_tree_and_model_errors_from_folders(
+   folder_names = folder_names
+ )
> p <- pir_plot_from_long(long_pir_out)
> p + ggplot2::ggtitle("") + ggplot2::ggsave("~/example_42.png", width = 7, height = 7)
> p
> Sys.time()
[1] "2020-07-14 12:50:41 CEST"

That is 22 seconds!

from pirouette.

Recommend Projects