I have the following R structure
list(Message = list(MessageType = "WARNING", MessageSubType = "USERNAME", MessageID = "105"