Buck9195/shared_Rscripts
1
0
Fork 0
mirror of https://github.com/dchakro/shared_Rscripts.git synced 2026-05-17 09:12:16 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

add snippet to write table

Browse source
This commit is contained in:
dchakro 2022-11-17 23:22:19 +02:00
parent 56329ecab0
commit 80bac34890
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
r.snippets.txt
View file

@ -54,7 +54,7 @@ snippet fun
${0} ${0}
} }
snippet readData snippet readTable
myDT <- data.table::fread(file = ${1:fileName}, myDT <- data.table::fread(file = ${1:fileName},
sep = "${2:delimiter}", sep = "${2:delimiter}",
skip = 0, skip = 0,
@ -64,6 +64,16 @@ snippet readData
nThread = `r as.integer(system(command = "sysctl -n hw.physicalcpu", intern = T))`) nThread = `r as.integer(system(command = "sysctl -n hw.physicalcpu", intern = T))`)
${0} ${0}
snippet writeTable
write.table(
x = ${1:TableVar},
file = ${2:fileName},
quote = F,
sep = "${3:delimiter}",
row.names = F,
col.names = T)
${0}
snippet gsubstitute snippet gsubstitute
gsub("${1:Find}","${2:Replace}",${3:variable}, fixed = T) gsub("${1:Find}","${2:Replace}",${3:variable}, fixed = T)
${0} ${0}