check_empty_beautier_folder()
# All created site models are a kind of site model
site_models <- create_site_models()
# TRUE
is_gtr_site_model(site_models[[1]])
is_hky_site_model(site_models[[2]])
is_jc69_site_model(site_models[[3]])
is_tn93_site_model(site_models[[4]])
check_empty_beautier_folder()
Run the code above in your browser using DataLab