if (FALSE) {
filename <- system.file("ball.shp", package = "AmigaFFH")
## read as binary:
con <- file(filename, "rb")
ball.raw <- readBin(con, "raw", file.size(filename))
close(con)
## convert raw data into something useful:
ball <- rawToAmigaBasicShape(ball.raw)
## A shortcut would be to call read.AmigaBasicShape
ball2 <- read.AmigaBasicShape(filename)
}
Run the code above in your browser using DataLab