survey <-
read.csv('atrr.csv', header=T, na.strings = c("NA","", ' '),
encoding = 'cp1251')
devtools::use_data(survey)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.