read.csv_input_export.R

# rm(list = ls())
# ###############################input data 
# dir_path <- "C:\\Users\\liyix\\OneDrive\\Desktop\\"
# dir_path_name <- list.files(pattern = ".*",dir_path,full.names = T, recursive = T)
# dir_path_name
# data_1 <- read.csv(grep("data.csv",dir_path_name,value = T),header = T,stringsAsFactors = F, fileEncoding= "UTF-8")
# dim(data_1) #[1] 24  8
# head(data_1)
# write.csv(data_1, paste0(dir_path,Sys.Date(),"-","output.csv"),row.names = FALSE,na = "")
# write.table(data_1, paste0(dir_path,Sys.Date(),"-","output.txt"),row.names = FALSE,na = "",sep = "\t")