# NOT RUN {
testSet<-list(a=list(b="myValue"))
safetyGraphics:::setSettingsValue(key=list("a","b"), value="notMyValue", settings=testSet)
#returns list(a=list(b="notMyValue")))
adamSettings<-generateSettings(standard="AdAM")
safetyGraphics:::setSettingsValue(list("id_col"),"customID",adamSettings)
safetyGraphics:::setSettingsValue(list("measure_values","ALP"),"Alanine Aminotrans",adamSettings)
safetyGraphics:::setSettingsValue(list("myCustomSetting"),"customized",adamSettings)
#adds myCustomSetting to adamSettings
# }
Run the code above in your browser using DataLab