algorithm

# find zip file in extdata
# uncompress
# 
zip_file <- "3_pages_conference.zip"

zip_file <- paste(system.file("extdata", package = "petro.One"), zip_file, sep = "/")
zip_file
unzip(zip_file)

Test function

library(petro.One)

use_example(1)


f0nzie/petro.One documentation built on May 29, 2019, 12:05 a.m.