# Read sample weather data from package
file <- system.file("extdata/ppd_72150.met", package = "tidyweather")
records <- read_weather(file)
# Write to temporary file
temp_file <- tempfile(fileext = ".met")
# Write to APSIM format
write_weather(records, temp_file, format = "APSIM")
# Overwrite existing file
write_weather(records, temp_file, format = "APSIM", overwrite = TRUE)
Run the code above in your browser using DataLab