To read StanForD classic forest machine reports
Currently the package provide functions to read .pri, .stm and .ktr files. The functions have been tested for only a few example files of each category. If they fail please send an email to: helmer.belbo at nibio.no, and please attach the file to parse.
Install from github:
devtools::install_github("hbelbo/stanfordclassicr")
Then load stanfordclassicr and necessary pkgs
lapply(c("magrittr","stringr","dplyr","tibble","lubridate", "stanfordclassicr"), library, character.only =T)
Demo: stanfordclassicr example files provided in the package
stanford_examples_path <- system.file("extdata", package = "stanfordclassicr")
drffiles <- list.files(path = stanford_examples_path, pattern = ".drf", full.names = T, ignore.case = TRUE)
drffiles[1:2]
ktrfiles <- list.files(path = stanford_examples_path, pattern = ".ktr", full.names = T, ignore.case = TRUE)
ktrfiles[1:2]
prifiles <- list.files(path = stanford_examples_path, pattern = ".pri", full.names = T, ignore.case = TRUE)
prifiles[1:2]
stmfiles <- list.files(path = stanford_examples_path, pattern = ".stm", full.names = T, ignore.case = TRUE)
stmfiles[1]
prdfiles <- list.files(path = stanford_examples_path, pattern = ".prd", full.names = T, ignore.case = TRUE)
prdfiles[1:2]
Demo: using the main functions to read the example files and organize the data in a list structure
drfdat <- read_drf_file(drffiles[1])
ktrdat <- read_ktr_file(ktrfiles[1])
pridat <- read_pri_file(prifiles[1])
prddat <- read_prd_file(prdfiles[1])
stemdat <- read_stm_file(stmfiles[1])
dplyr::glimpse(stemdat[[1]])
Then find the path to your own stanford classic files and start reading the content. Good luck:-) If you have encoding problems with the stanford files, you may use the following trick to turn them to UTF8 encoding.
writeLines(iconv(readLines(stmfiles[1]), from = "", to = "UTF8"),
file(stmfiles[1], encoding="UTF-8"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.