soil_classes <- data.frame('Attributes' = c('DEFAULT','ALTERNATIVE'),
'SAND' = c(0.4316, 0.3000),
'CLAY' = c(0.1684, 0.4000),
'SILT' = c(0.4000, 0.3000),
'ORGANIC' = c(0.0000, 0.0000))
attributes <- c('%SAND','%CLAY','%SILT','%ORGANIC')
units <- rep('none',4)
tf <- file.path(tempdir(), "Hogwarts.rvp")
rvn_write_Raven_table(tf, attributes = attributes, units = units, df = soil_classes)
# view file
readLines(tf)
Run the code above in your browser using DataLab