function to document dataset

data.R

document_data <- function(dataset,R_file) {
initial = "#' WHAT IS THIS DATASET ABOUT
#'
#' WRITE DESCRIPTION OF THIS DATASET
#'
#'
#' @usage HOW TO USE
#'
#' @format Description
#' \\describe{"
middle=paste0("#' ","\\item{",names(dataset),"}","{}")
last = paste0("#' }
\"",deparse(substitute(dataset)),"\"")
write(c(initial,middle,last),R_file)
}

read_file_with_readr.R

# You can read csv with encoding UTF-8, this way it correctly shows nepali characters

file <- readr::read_csv("<data>.csv", 
                        locale = readr::locale(encoding = "UTF-8"))