# NOT RUN {
if (.Platform$OS.type != "windows") {
test_path <- system.file("tests", package = "rtracklayer")
bw_file <- file.path(test_path, "test.bw")
gr <- read_bigwig(bw_file)
gr
bw_out <- file.path(tempdir(), "test_out.bw")
write_bigwig(gr ,bw_out)
read_bigwig(bw_out)
}
# }
Run the code above in your browser using DataLab