f_remove_file: Remove a File in the '.pbix' Collection of Files

In pbixr: Access Data and Metadata from 'Microsoft' 'Power BI' Documents

Description

A '.pbix' is decompressed, making its collection of files available for manipulation. A file is removed from the collection. Files remaining in the collection are (1) compressed to form a modified '.pbix' and (2) deleted.

Usage

f_remove_file(input_file_pbix, collection_files_pbix, output_pbix, file_remove)

Arguments

input_file_pbix	Path of the input '.pbix'.
collection_files_pbix	Directory of the collection of files.
output_pbix	Path of the modified '.pbix'.
file_remove	Name of file in the collection of files to be removed.

Value

None

Author(s)

Don Diproto

See Also

Uses: f_decompress_pbix, f_compress_pbix.

Examples

## Not run: 
# Get dummy data ------------------------------------------------------------
# Create a temporary directory
temp_dir <- file.path(tempdir(),"functionTest")
if(!dir.exists(temp_dir)) {
	dir.create(temp_dir)
}
sample_file_name <- "OR_sample_func.pbix"
pathFileSample <- file.path(temp_dir, sample_file_name)

# See if dummy data already exists in temporary directory
parent_temp_dir <- dirname(temp_dir)
existing_file <- list.files(parent_temp_dir,
pattern = sample_file_name, recursive = TRUE, full.names = TRUE)

# Download the sample .pbix if it doesn't exist
if (length(existing_file) == 0) {
   url_pt1 <- "https://github.com/KoenVerbeeck/PowerBI-Course/blob/"
   url_pt2 <- "master/pbix/TopMovies.pbix?raw=true"
   url <- paste0(url_pt1, url_pt2)
   req <- download.file(url, destfile = pathFileSample, mode = "wb")
} else {
   pathFileSample <- existing_file[1]
}
# Do stuff ------------------------------------------------------------------

pathFileSampleMod <- file.path(temp_dir, "sample_modified_f20.pbix")
dirFileSampleMod <- file.path(temp_dir, "sample_modified_f20")
if(file.exists(pathFileSampleMod)) {
  file.remove(pathFileSampleMod)
}
if(dir.exists(dirFileSampleMod)) {
  unlink(dirFileSampleMod, recursive = TRUE)
}
# Run the function
f_remove_file(pathFileSample, dirFileSampleMod, pathFileSampleMod,
"DataModel")
  
## End(Not run)

pbixr documentation built on Oct. 27, 2020, 5:07 p.m.