Perhaps you might try
template[ , names(tbl) ] <- tbl
where I have used tbl instead of table, for reasons previously mentioned.
---------------------------------------------------------------------------
Jeff Newmiller The ..... ..... Go Live...
DCN:<jdnew...@dcn.davis.ca.us> Basics: ##.#. ##.#. Live Go...
Live: OO#.. Dead: OO#.. Playing
Research Engineer (Solar/Batteries O.O#. #.O#. with
/Software/Embedded Controllers) .OO#. .OO#. rocks...1k
---------------------------------------------------------------------------
Sent from my phone. Please excuse my brevity.
"s.s.m. fauzi" <ssmf...@gmail.com> wrote:
>Hi Jeff,
>Thank you for the respond.
>
>I'm not really familiar with cbind.
>
>Anyway, there is a duplication in my input and the template, and I want
>to
>preserve the column order.
>
>Shukor
>
>On Wed, Sep 26, 2012 at 11:30 AM, Jeff Newmiller
><jdnew...@dcn.davis.ca.us>wrote:
>
>> Thanks for posting dput data, but I don't understand your question.
>>
>> are you familiar with cbind?
>> Is there duplication of column names in your input table and
>template? Are
>> they always duplicated in the template? What characteristics of the
>> template are you trying to preserve? Column order?
>>
>> Other:
>> Don't post HTML email.
>> The name "table" is defined in the base package, so using it as a
>data
>> name can lead to confusion and inability to perform fundamental
>operations.
>>
>---------------------------------------------------------------------------
>> Jeff Newmiller The ..... ..... Go
>Live...
>> DCN:<jdnew...@dcn.davis.ca.us> Basics: ##.#. ##.#. Live
>> Go...
>> Live: OO#.. Dead: OO#..
>Playing
>> Research Engineer (Solar/Batteries O.O#. #.O#. with
>> /Software/Embedded Controllers) .OO#. .OO#.
>rocks...1k
>>
>---------------------------------------------------------------------------
>> Sent from my phone. Please excuse my brevity.
>>
>> "s.s.m. fauzi" <ssmf...@gmail.com> wrote:
>>
>> >Hi,
>> >
>> >I have a table with data, as below:
>> >
>> >dput(table):
>> >
>> >structure(list(Adrian.Cole = c(0L, 0L, 0L, 0L, 0L, 0L), Alison.Wong
>=
>> >c(0L, 0L, 0L, 0L, 0L, 0L), Andrei.Savu = c(0L, 0L, 0L, 0L, 0L, 0L),
>> >Bruno.Dumon = c(0L, 0L, 0L, 0L, 0L, 0L), Edward.J..Yoon = c(0L, 0L,
>0L,
>> >0L, 0L, 0L), Eugene.Koontz = c(0L, 0L, 0L, 0L, 0L,
>> > 0L), Jakob.Homan = c(0L, 0L, 0L, 0L, 0L, 0L), Kelvin.Kakugawa =
>> >c(0L, 0L, 0L, 0L, 0L, 0L), Kirk.True = c(0L, 0L, 0L, 0L, 0L, 0L
>> > ), Lars.George = c(0L, 0L, 1L, 0L, 0L, 0L), Soren.Macbeth = c(0L,
>0L,
>> >1L, 0L, 0L, 0L), Stu.Hood = c(0L, 0L, 0L, 0L, 0L, 0L),
>> > Tibor.Kiss = c(0L, 0L, 0L, 0L, 0L, 0L), Tom.White = c(0L, 0L, 1L,
>0L,
>> >0L, 0L), Unassigned = c(0L, 0L, 0L, 0L, 0L, 0L
>> > )), .Names = c("Adrian.Cole", "Alison.Wong",
>> >"Andrei.Savu", "Bruno.Dumon", "Edward.J..Yoon", "Eugene.Koontz",
>> >"Jakob.Homan",
>> >"Kelvin.Kakugawa", "Kirk.True", "Lars.George", "Soren.Macbeth",
>> >"Stu.Hood",
>> >"Tibor.Kiss", "Tom.White", "Unassigned"), row.names = c("Adrian
>Cole",
>> >"Alison Wong", "Andrei Savu", "Bruno Dumon", "Edward J. Yoon",
>"Eugene
>> >Koontz"), class = "data.frame")
>> >
>> >> dim(table)
>> >[1] 15 15
>> >> names(table)
>> >[1] "Adrian.Cole" "Alison.Wong" "Andrei.Savu"
>"Bruno.Dumon"
>> >"Edward.J..Yoon" "Eugene.Koontz" "Jakob.Homan"
>"Kelvin.Kakugawa"
>> > [9] "Kirk.True" "Lars.George" "Soren.Macbeth"
>"Stu.Hood"
>> > "Tibor.Kiss" "Tom.White" "Unassigned"
>> >
>> >What I want to do is to embed/write this table to other big .csv
>> >template,
>> >and save it with other name.
>> >
>> >dput(template)
>> >
>> >structure(list(Adrian.Cole = c(0L, 0L, 0L, 0L, 0L, 0L), Alison.Wong
>=
>> >c(0L, 0L, 0L, 0L, 0L, 0L), Andrei.Savu = c(0L, 0L, 0L, 0L, 0L, 0L),
>> >Bruno.Dumon = c(0L, 0L, 0L, 0L, 0L, 0L), Edward.J..Yoon = c(0L, 0L,
>0L,
>> >0L, 0L, 0L), Eugene.Koontz = c(0L, 0L, 0L, 0L, 0L,
>> > 0L), Jakob.Homan = c(0L, 0L, 0L, 0L, 0L, 0L), Kelvin.Kakugawa =
>> >c(0L, 0L, 0L, 0L, 0L, 0L), Kirk.True = c(0L, 0L, 0L, 0L, 0L, 0L
>> > ), Lars.George = c(0L, 0L, 0L, 0L, 0L, 0L), Soren.Macbeth = c(0L,
>0L,
>> >0L, 0L, 0L, 0L), Stu.Hood = c(0L, 0L, 0L, 0L, 0L, 0L),
>> > Tibor.Kiss = c(0L, 0L, 0L, 0L, 0L, 0L), Tom.White = c(0L, 0L, 0L,
>0L,
>> >0L, 0L), Unassigned = c(0L, 0L, 0L, 0L, 0L, 0L
>> > ), David.Alves = c(0L, 0L, 0L, 0L, 0L, 0L), Patrick.Hunt = c(0L,
>0L,
>> >0L, 0L, 0L, 0L), Sebastian.Schoenherr = c(0L, 0L, 0L,
>> >0L, 0L, 0L), Roman.Valls = c(0L, 0L, 0L, 0L, 0L, 0L),
>Pavel.Yaskevich =
>> >c(0L, 0L, 0L, 0L, 0L, 0L), Karel.Vervaeke = c(0L, 0L, 0L, 0L, 0L,
>> > 0L), Shay.Banon = c(0L, 0L, 0L, 0L, 0L, 0L), Hyunsik.Choi = c(0L,
>0L,
>> >0L, 0L, 0L, 0L), Joey.Hung. = c(0L, 0L, 0L, 0L, 0L, 0L
>> > ), Tommaso.Teofili = c(0L, 0L, 0L, 0L, 0L, 0L),
>Jeff.Hammerbacher. =
>> >c(0L, 0L, 0L, 0L, 0L, 0L), Andrew.Purtell. = c(0L, 0L, 0L, 0L,
>> >0L, 0L), Johan.Oskarsson = c(0L, 0L, 0L, 0L, 0L, 0L), Erik.Frey =
>c(0L,
>> >0L, 0L, 0L, 0L, 0L), Sebb = c(0L, 0L, 0L, 0L, 0L, 0L),
>Andrew.klochkov
>> >=
>> >c(0L,
>> > 0L, 0L, 0L, 0L, 0L), Paul.Egan = c(0L, 0L, 0L, 0L, 0L, 0L),
>Hudson =
>> >c(0L, 0L, 0L, 0L, 0L, 0L), Hadoop = c(0L, 0L,
>> > 0L, 0L, 0L, 0L), Aaron = c(0L, 0L, 0L, 0L, 0L, 0L), henry = c(0L,
>0L,
>> >0L, 0L, 0L, 0L), steve = c(0L, 0L, 0L, 0L, 0L, 0L), russel = c(0L,
>> > 0L, 0L, 0L, 0L, 0L)), .Names = c("Adrian.Cole",
>> >"Alison.Wong", "Andrei.Savu", "Bruno.Dumon", "Edward.J..Yoon",
>> >"Eugene.Koontz",
>> >"Jakob.Homan", "Kelvin.Kakugawa", "Kirk.True", "Lars.George",
>> >"Soren.Macbeth",
>> >"Stu.Hood", "Tibor.Kiss", "Tom.White", "Unassigned",
>> >"David.Alves", "Patrick.Hunt", "Sebastian.Schoenherr",
>> >"Roman.Valls", "Pavel.Yaskevich", "Karel.Vervaeke", "Shay.Banon",
>> >"Hyunsik.Choi",
>> >"Joey.Hung.", "Tommaso.Teofili", "Jeff.Hammerbacher.",
>> >"Andrew.Purtell.", "Johan.Oskarsson", "Erik.Frey", "Sebb",
>> >"Andrew.klochkov", "Paul.Egan",
>> >"Hudson", "Hadoop", "Aaron", "henry", "steve", "russel"), row.names
>=
>> >c("Adrian Cole", "Alison Wong", "Andrei Savu", "Bruno Dumon",
>"Edward
>> >J.
>> >Yoon",
>> >"Eugene Koontz"), class = "data.frame")
>> >
>> >> dim(template)
>> >[1] 38 38
>> >> names(template)
>> > [1] "Adrian.Cole" "Alison.Wong" "Andrei.Savu"
>> > "Bruno.Dumon"
>> > [5] "Edward.J..Yoon" "Eugene.Koontz" "Jakob.Homan"
>> > "Kelvin.Kakugawa"
>> > [9] "Kirk.True" "Lars.George" "Soren.Macbeth"
>> > "Stu.Hood"
>> >[13] "Tibor.Kiss" "Tom.White" "Unassigned"
>> >"David.Alves"
>> >[17] "Patrick.Hunt" "Sebastian.Schoenherr" "Roman.Valls"
>> > "Pavel.Yaskevich"
>> >[21] "Karel.Vervaeke" "Shay.Banon" "Hyunsik.Choi"
>> >"Joey.Hung."
>> >[25] "Tommaso.Teofili" "Jeff.Hammerbacher." "Andrew.Purtell."
>> > "Johan.Oskarsson"
>> >[29] "Erik.Frey" "Sebb" "Andrew.klochkov"
>> > "Paul.Egan"
>> >[33] "Hudson" "Hadoop" "Aaron"
>> > "henry"
>> >[37] "steve" "russel"
>> >
>> > [[alternative HTML version deleted]]
>> >
>> >______________________________________________
>> >R-help@r-project.org mailing list
>> >https://stat.ethz.ch/mailman/listinfo/r-help
>> >PLEASE do read the posting guide
>> >http://www.R-project.org/posting-guide.html
>> >and provide commented, minimal, self-contained, reproducible code.
>>
>>
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
