#!/usr/bin/Rscript

library("methods")

cargs <- commandArgs(trailingOnly = TRUE)

if (1 != length(cargs))
{
    stop("Usage: gen_data.R rows")
}

rows <- strtoi(cargs[1])

data <- stringi::stri_rand_strings(rows, 64)

df <- data.frame(col3 = data)

write.table(df, file="", sep=",", row.names = FALSE, col.names = TRUE)