solute.properties <-
list(formula = c(text = "H2O", html = "H2", TeX = "$H_2O$"),
name = c("water", IUPAC = "oxidane"),
structure = grDevices::as.raster(matrix()),
mass = 18.015, # Da
ID = c(ChemSpider = "917", CID = "962"),
solvent.name = NA_character_,
solvent.ID = NA_character_)
my.spct <- solute_spct()
solute_properties(my.spct) <- solute.properties
solute_properties(my.spct)
solute_properties(my.spct) <- NULL
solute_properties(my.spct)
solute_properties(my.spct, return.null = TRUE)
solute_properties(my.spct)
Run the code above in your browser using DataLab