r - All column names are in one cell -

this code. point find blank rows in 1 column, in case defined address.1, , replace corresponding row 1 of 2 other columns, defined here rf_ms_address1 , rf_ghq_address1:

withblanks <- read.csv("file.csv", stringsasfactors = false)  fun <- function(x, y, z) {   y[y == ""] <- z[y == ""] #substitute missings in y values z   x[x == ""] <- y[x == ""] #substitute missings in x values y   x #return }  noblanks <- within(withblanks, "address.1" <- fun("address.1", "rf_ms_address1", "rf_ghq_address1")) write.table(noblanks, "file.csv", sep = ",", col.names = true, row.names = false) 

the resultant file has headers in single cell, separated period. example: "contactid.email.address.first.name.middle.name.etc." naturally want them in separate cells, right file unusable. doing wrong result?

this sample representation of first row:

contactid.email.address.first.name.middle.name.last.name.company.address.1.address.2.address.3.city.state.or.province.zip.or.postal.code.country.business.phone.mobile.phone.fax.title.salutation.ticker.symbol.language.salesperson.sfdccontactid.sfdclea ...     1 1 1 2393392 emailemail@email.net firstname  lastname 868 management company 1b, plaza place, 12 location road, city, city   city city city city  city city +111 11111111   principal  na   22222222222222   8/1/2013 0:30 5/29/2015 12:06 llll0909090909 contactid.email.address.first.name.middle.name.last.name.company.address.1.address.2.address.3.city.state.or.province.zip.or.postal.code.country.business.phone.mobile.phone.fax.title.salutation.ticker.symbol.language.salesperson.sfdccontactid.sfdclea ... 1 1 1 2393392 emailemail@email.net firstname  lastname 868 management company 1b, plaza place, 12 location road, city, city   city city city city  city city +111 11111111   principal  na   22222222222222   8/1/2013 0:30 5/29/2015 12:06 llll0909090909 0909090909opk 5/28/2015 22:20    na na na na 0 na na na na na  gud 565787   na na na na  na na na na  na  na na na na na na na na na na na na other  (specify in description box)            0 capital.net firstname lastname  567234 portfolio management  region 0 0   mgt d 4 d4 3/8/2014 2:09 na firstlastletters     false  cash na cash cash   na na na    na 10/11/2013 4:52  contact name 9584639474ucon 4/14/2014 3:57       9584639474ucon     9584639474ucon 9584639474ucon 9584639474ucon 9584639474ucon9584639474ucon contact name pos ition,  sales (356) 782-983 email@email.com 9584639474ucon 2- warm  0 242  0  6 attempts/no contact website rejected   9584639474ucon contact name 0  geo region  0        product 0  na  region 8/1/2013 0:17 1/11/2014 6:49  na email@email.com         na  na na na na na na           na na na na      na na na            na  9584639474ucon  5/25/2015 0:00 12/12/2014 0:00 5/25/2015 0:00   na  na  na address 1 address.1 5/28/2015 22:20    na na na na 0 na na na na na  gud 565787   na na na na  na na na na  na  na na na na na na na na na na na na other  (specify in description box)            0 capital.net firstname lastname  567234 portfolio management  region 0 0   mgt d 4 d4 3/8/2014 2:09 na firstlastletters     false  cash na cash cash   na na na    na 10/11/2013 4:52  contact name 9584639474ucon 4/14/2014 3:57       9584639474ucon     9584639474ucon 9584639474ucon 9584639474ucon 9584639474ucon9584639474ucon contact name pos ition,  sales (356) 782-983 email@email.com 9584639474ucon 2- warm  0 242  0  6 attempts/no contact website rejected   9584639474ucon contact name 0  geo region  0        product 0  na  region 8/1/2013 0:17 1/11/2014 6:49  na email@email.com         na  na na na na na na           na na na na      na na na            na  9584639474ucon  5/25/2015 0:00 12/12/2014 0:00 5/25/2015 0:00   na  na  na address 1 address.1