Dave Jarvis' Repositories

git clone https://repo.autonoma.ca/repo/keenwrite.git
R/csv.R
csv2md <- function( f, decimals = 2, totals = T, align = T, caption = "" ) {
# Read the CVS data from the file; ensure strings become characters.
- df <- read.table( f, sep=',', header=T, stringsAsFactors=F )
+ df <- read.table( f, sep=',', header=T, stringsAsFactors=F, check.names=F )
if( totals ) {

Keeps original header names reading CSV files

Author DaveJarvis <email>
Date 2025-08-22 00:59:21 GMT-0700
Commit a4c9d660bc4bacb0f3b4d00cf8d42fb29523693e
Parent 9342661
Delta 1 line added, 1 line removed