##############################################################################################################
# test_00_prepere_to_test.R
library(KAROLA)
context("prepere_to_test")
KAROLA_container_id <- system("docker ps -q -f name=KarolaTestDatabase",
intern = T)
if (length(KAROLA_container_id) > 0){
try(system("docker stop KarolaTestDatabase"))
try(system("docker rm KarolaTestDatabase"))
}
system(paste0("docker run --name KarolaTestDatabase -p 5430:5432 ",
"-d daroso/karola-test-database:0.9002"))
log_from_karola_docker <- ""
time_from_ran <- 0
end_log <- "LOG: autovacuum launcher started"
print("Please wait a moment, loading postgres database.")
while (log_from_karola_docker[length(log_from_karola_docker)] != end_log){
time_from_ran <- time_from_ran + 1
print(paste0("Proces starts ", time_from_ran, " second ago."))
log_from_karola_docker <-
system2("docker",
"logs KarolaTestDatabase",
stdout = TRUE,
stderr = TRUE)
Sys.sleep(1)
if (time_from_ran > 30) break
}
print("Postgres database was loaded.")
Sys.sleep(3)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.