## Not run:
# keywords <- c('oral ulceration', 'mouth ulceration', 'aphthous ulceration',
# 'oral aphthous ulceration','oral ulcer[s]?', 'mouth ulcer[s]?', 'aphthous ulcer[s]?',
# 'aphthous stomatitis', "stomatitis", "aphthae", 'oral aphthous stomatitis',
# 'oral aphthous ulcers', 'recurrent oral ulcers', 'recurrent mouth ulcers',
# 'recurrent oral aphthous ulcers', 'recurrent aphthous ulcers', 'recurrent aphthous stomatitis',
# 'recurrent oral aphthous stomatitis')
# a <- extract_keywords(medical, keywords)
# ## End(Not run)
Run the code above in your browser using DataLab