write.xls

Hello, All:


     The "writeFindFn2xls" function in the "sos" package tries to write an Excel file with 3 sheets ('PackageSum2', 'findFn', 'call'). Unfortunately, it is often unable to do this because of configuration problems that are not easy to fix.  I've found 3 contributed packages that provide facilities to write Excel files with multiple sheets. Unfortunately, I can't get any of them to work consistently for me. Below please find test cases that illustrate the problems.  Any suggestions for how to solve this problem will be appreciated.


     Thanks,
     Spencer


library(dataframes2xls)

df1 <- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2 <- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile <- 'df12.xls'

write.xls(c(df1,df2), outFile)
# works

do.call(write.xls, list(c(df1, df2), outFile))
# Error in get(s[i]) : object 'structure(list(c1=1:2' not found

library(WriteXLS)
testPerl()
#Perl found.
#The following Perl modules were not found on this system:
#Text::CSV_XS
#If you have more than one Perl installation, be sure the correct one was used here.
#Otherwise, please install the missing modules. See the package INSTALL file for more information.

# *** NOTE:  I may be able to fix this for myself.
# *** However, I want to use this in the 'sos' package,
# *** and if it doesn't work easily for me, it may not work for others.

library(RODBC)
xlsFile <- odbcConnectExcel(outFile, readOnly=FALSE)
# NOTE:  This works with R 2.15.0 32-bit.
# However, with 64-bit, I get the following error message here:
# Error in odbcConnectExcel(outFile, readOnly = FALSE) :
#   odbcConnectExcel is only usable with 32-bit Windows

# When this works, the following 3 lines of code
#    suffice to create the outFile:
sqlSave(xlsFile, df1, tablename='sheet1')
sqlSave(xlsFile, df2, tablename='sheet2')
odbcClose(xlsFile)

sessionInfo()
#R version 2.15.0 (2012-03-30)
#Platform: x86_64-pc-mingw32/x64 (64-bit)

#locale:
#[1] LC_COLLATE=English_United States.1252
#[2] LC_CTYPE=English_United States.1252
#[3] LC_MONETARY=English_United States.1252
#[4] LC_NUMERIC=C
#[5] LC_TIME=English_United States.1252

#attached base packages:
#[1] stats     graphics  grDevices utils     datasets  methods   base

#other attached packages:
#[1] RODBC_1.3-5          WriteXLS_2.1.0       dataframes2xls_0.4.5



-- 
Spencer Graves, PE, PhD
President and Chief Technology Officer
Structure Inspection and Monitoring, Inc.
751 Emerson Ct.
San Jos?, CA 95126
ph:  408-655-4567
web:  www.structuremonitoring.com

I have been using XLConnect to write multisheet Excel without any problems.

Sent from my iPad

On May 19, 2012, at 21:32, Spencer Graves<spencer.graves at structuremonitoring.com>  wrote:

Hello, All:


      The "writeFindFn2xls" function in the "sos" package tries to write an Excel file with 3 sheets ('PackageSum2', 'findFn', 'call'). Unfortunately, it is often unable to do this because of configuration problems that are not easy to fix.  I've found 3 contributed packages that provide facilities to write Excel files with multiple sheets. Unfortunately, I can't get any of them to work consistently for me. Below please find test cases that illustrate the problems.  Any suggestions for how to solve this problem will be appreciated.


      Thanks,
      Spencer


library(dataframes2xls)

df1<- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2<- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile<- 'df12.xls'

write.xls(c(df1,df2), outFile)
# works

do.call(write.xls, list(c(df1, df2), outFile))
# Error in get(s[i]) : object 'structure(list(c1=1:2' not found

library(WriteXLS)
testPerl()
#Perl found.
#The following Perl modules were not found on this system:
#Text::CSV_XS
#If you have more than one Perl installation, be sure the correct one was used here.
#Otherwise, please install the missing modules. See the package INSTALL file for more information.

# *** NOTE:  I may be able to fix this for myself.
# *** However, I want to use this in the 'sos' package,
# *** and if it doesn't work easily for me, it may not work for others.

library(RODBC)
xlsFile<- odbcConnectExcel(outFile, readOnly=FALSE)
# NOTE:  This works with R 2.15.0 32-bit.
# However, with 64-bit, I get the following error message here:
# Error in odbcConnectExcel(outFile, readOnly = FALSE) :
#   odbcConnectExcel is only usable with 32-bit Windows

# When this works, the following 3 lines of code
#    suffice to create the outFile:
sqlSave(xlsFile, df1, tablename='sheet1')
sqlSave(xlsFile, df2, tablename='sheet2')
odbcClose(xlsFile)

sessionInfo()
#R version 2.15.0 (2012-03-30)
#Platform: x86_64-pc-mingw32/x64 (64-bit)

#locale:
#[1] LC_COLLATE=English_United States.1252
#[2] LC_CTYPE=English_United States.1252
#[3] LC_MONETARY=English_United States.1252
#[4] LC_NUMERIC=C
#[5] LC_TIME=English_United States.1252

#attached base packages:
#[1] stats     graphics  grDevices utils     datasets  methods   base

#other attached packages:
#[1] RODBC_1.3-5          WriteXLS_2.1.0       dataframes2xls_0.4.5

Hello, All:


? ? ?The "writeFindFn2xls" function in the "sos" package tries to write an
Excel file with 3 sheets ('PackageSum2', 'findFn', 'call'). Unfortunately,
it is often unable to do this because of configuration problems that are not
easy to fix. ?I've found 3 contributed packages that provide facilities to
write Excel files with multiple sheets. Unfortunately, I can't get any of
them to work consistently for me. Below please find test cases that
illustrate the problems. ?Any suggestions for how to solve this problem will
be appreciated.


? ? ?Thanks,
? ? ?Spencer


library(dataframes2xls)

df1 <- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2 <- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile <- 'df12.xls'

write.xls(c(df1,df2), outFile)
# works

do.call(write.xls, list(c(df1, df2), outFile))
# Error in get(s[i]) : object 'structure(list(c1=1:2' not found

On Sat, May 19, 2012 at 9:32 PM, Spencer Graves
<spencer.graves at structuremonitoring.com> wrote:

Hello, All:


? ? ?The "writeFindFn2xls" function in the "sos" package tries to write an
Excel file with 3 sheets ('PackageSum2', 'findFn', 'call'). Unfortunately,
it is often unable to do this because of configuration problems that are not
easy to fix. ?I've found 3 contributed packages that provide facilities to
write Excel files with multiple sheets. Unfortunately, I can't get any of
them to work consistently for me. Below please find test cases that
illustrate the problems. ?Any suggestions for how to solve this problem will
be appreciated.


? ? ?Thanks,
? ? ?Spencer


library(dataframes2xls)

df1 <- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2 <- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile <- 'df12.xls'

write.xls(c(df1,df2), outFile)
# works

do.call(write.xls, list(c(df1, df2), outFile))
# Error in get(s[i]) : object 'structure(list(c1=1:2' not found

Try this:

dd <- list(df1 = df1, df2 = df2)
do.call("WriteXLS", list("dd", outFile))

or this:

do.call("WriteXLS", list(c("df1", "df2"), outFile)

Hello, All:


     The "writeFindFn2xls" function in the "sos" package tries to write an Excel file with 3 sheets ('PackageSum2', 'findFn', 'call'). Unfortunately, it is often unable to do this because of configuration problems that are not easy to fix.  I've found 3 contributed packages that provide facilities to write Excel files with multiple sheets. Unfortunately, I can't get any of them to work consistently for me. Below please find test cases that illustrate the problems.  Any suggestions for how to solve this problem will be appreciated.


     Thanks,
     Spencer


library(dataframes2xls)

df1 <- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2 <- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile <- 'df12.xls'

write.xls(c(df1,df2), outFile)
# works

do.call(write.xls, list(c(df1, df2), outFile))
# Error in get(s[i]) : object 'structure(list(c1=1:2' not found

library(WriteXLS)
testPerl()
#Perl found.
#The following Perl modules were not found on this system:
#Text::CSV_XS
#If you have more than one Perl installation, be sure the correct one was used here.
#Otherwise, please install the missing modules. See the package INSTALL file for more information.

# *** NOTE:  I may be able to fix this for myself.
# *** However, I want to use this in the 'sos' package,
# *** and if it doesn't work easily for me, it may not work for others.

library(RODBC)
xlsFile <- odbcConnectExcel(outFile, readOnly=FALSE)
# NOTE:  This works with R 2.15.0 32-bit.
# However, with 64-bit, I get the following error message here:
# Error in odbcConnectExcel(outFile, readOnly = FALSE) :
#   odbcConnectExcel is only usable with 32-bit Windows

# When this works, the following 3 lines of code
#    suffice to create the outFile:
sqlSave(xlsFile, df1, tablename='sheet1')
sqlSave(xlsFile, df2, tablename='sheet2')
odbcClose(xlsFile)

sessionInfo()
#R version 2.15.0 (2012-03-30)
#Platform: x86_64-pc-mingw32/x64 (64-bit)

#locale:
#[1] LC_COLLATE=English_United States.1252
#[2] LC_CTYPE=English_United States.1252
#[3] LC_MONETARY=English_United States.1252
#[4] LC_NUMERIC=C
#[5] LC_TIME=English_United States.1252

#attached base packages:
#[1] stats     graphics  grDevices utils     datasets  methods   base

#other attached packages:
#[1] RODBC_1.3-5          WriteXLS_2.1.0       dataframes2xls_0.4.5

On Sat, May 19, 2012 at 9:32 PM, Spencer Graves
<spencer.graves at structuremonitoring.com> wrote:

Hello, All:


     The "writeFindFn2xls" function in the "sos" package tries to write an
Excel file with 3 sheets ('PackageSum2', 'findFn', 'call'). Unfortunately,
it is often unable to do this because of configuration problems that are not
easy to fix.  I've found 3 contributed packages that provide facilities to
write Excel files with multiple sheets. Unfortunately, I can't get any of
them to work consistently for me. Below please find test cases that
illustrate the problems.  Any suggestions for how to solve this problem will
be appreciated.


     Thanks,
     Spencer


library(dataframes2xls)

df1 <- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2 <- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile <- 'df12.xls'

write.xls(c(df1,df2), outFile)
# works

do.call(write.xls, list(c(df1, df2), outFile))
# Error in get(s[i]) : object 'structure(list(c1=1:2' not found

Try this:

dd <- list(df1 = df1, df2 = df2)
do.call("WriteXLS", list("dd", outFile))

or this:

do.call("WriteXLS", list(c("df1", "df2"), outFile)

On Sun, May 20, 2012 at 8:30 AM, Gabor Grothendieck
<ggrothendieck at gmail.com>  wrote:

On Sat, May 19, 2012 at 9:32 PM, Spencer Graves
<spencer.graves at structuremonitoring.com>  wrote:

Hello, All:


      The "writeFindFn2xls" function in the "sos" package tries to write an
Excel file with 3 sheets ('PackageSum2', 'findFn', 'call'). Unfortunately,
it is often unable to do this because of configuration problems that are not
easy to fix.  I've found 3 contributed packages that provide facilities to
write Excel files with multiple sheets. Unfortunately, I can't get any of
them to work consistently for me. Below please find test cases that
illustrate the problems.  Any suggestions for how to solve this problem will
be appreciated.


      Thanks,
      Spencer


library(dataframes2xls)

df1<- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2<- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile<- 'df12.xls'

write.xls(c(df1,df2), outFile)
# works

do.call(write.xls, list(c(df1, df2), outFile))
# Error in get(s[i]) : object 'structure(list(c1=1:2' not found

Try this:

dd<- list(df1 = df1, df2 = df2)
do.call("WriteXLS", list("dd", outFile))

or this:

do.call("WriteXLS", list(c("df1", "df2"), outFile)

That was for WriteXLS.  For dataframes2xls try this:

do.call("write.xls", list(quote(c(df1, df2)), outFile))

and also check out this page:

http://rwiki.sciviews.org/doku.php?id=tips:data-io:ms_windows

On May 19, 2012, at 8:32 PM, Spencer Graves wrote:

Hello, All:


      The "writeFindFn2xls" function in the "sos" package tries to write an Excel file with 3 sheets ('PackageSum2', 'findFn', 'call'). Unfortunately, it is often unable to do this because of configuration problems that are not easy to fix.  I've found 3 contributed packages that provide facilities to write Excel files with multiple sheets. Unfortunately, I can't get any of them to work consistently for me. Below please find test cases that illustrate the problems.  Any suggestions for how to solve this problem will be appreciated.


      Thanks,
      Spencer


library(dataframes2xls)

df1<- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2<- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile<- 'df12.xls'

write.xls(c(df1,df2), outFile)
# works

do.call(write.xls, list(c(df1, df2), outFile))
# Error in get(s[i]) : object 'structure(list(c1=1:2' not found

library(WriteXLS)
testPerl()
#Perl found.
#The following Perl modules were not found on this system:
#Text::CSV_XS
#If you have more than one Perl installation, be sure the correct one was used here.
#Otherwise, please install the missing modules. See the package INSTALL file for more information.

# *** NOTE:  I may be able to fix this for myself.
# *** However, I want to use this in the 'sos' package,
# *** and if it doesn't work easily for me, it may not work for others.

library(RODBC)
xlsFile<- odbcConnectExcel(outFile, readOnly=FALSE)
# NOTE:  This works with R 2.15.0 32-bit.
# However, with 64-bit, I get the following error message here:
# Error in odbcConnectExcel(outFile, readOnly = FALSE) :
#   odbcConnectExcel is only usable with 32-bit Windows

# When this works, the following 3 lines of code
#    suffice to create the outFile:
sqlSave(xlsFile, df1, tablename='sheet1')
sqlSave(xlsFile, df2, tablename='sheet2')
odbcClose(xlsFile)

sessionInfo()
#R version 2.15.0 (2012-03-30)
#Platform: x86_64-pc-mingw32/x64 (64-bit)

#locale:
#[1] LC_COLLATE=English_United States.1252
#[2] LC_CTYPE=English_United States.1252
#[3] LC_MONETARY=English_United States.1252
#[4] LC_NUMERIC=C
#[5] LC_TIME=English_United States.1252

#attached base packages:
#[1] stats     graphics  grDevices utils     datasets  methods   base

#other attached packages:
#[1] RODBC_1.3-5          WriteXLS_2.1.0       dataframes2xls_0.4.5

Hi Spencer,

The INSTALL file referenced for WriteXLS is also available on CRAN:

   http://cran.r-project.org/web/packages/WriteXLS/INSTALL

The missing Perl modules cannot be provided with the CRAN package as they contain C code that must be compiled for the target platform. So one either needs to install the source Perl package from CPAN via the CLI and have a C compiler on their computer or use a Perl package manager infrastructure (eg. ActiveState Perl) that provides pre-compiled binaries for each OS and a nice GUI. The INSTALL file provides instructions for Windows, OSX and Linux as to how to address that issue.

Note that the key issue that you face is that some of the mechanisms that you are trying will be OS specific (primarily Windows), such as RODBC, since ODBC drivers for Excel will be Windows only. If you want to provide your users of sos with cross-platform functionality, then you would need to look at solutions using Perl such as WriteXLS, Java such as XLConnect or Python such as dataframes2xls. Each will have installation issues, depending upon the OS and the useR's skill sets in ensuring the presence of the required foundation. Some users may have issues in certain environments in installing Perl, Python or Java due to IT/Security issues, so something to consider.

The path of least resistance would be to simply write CSV files, which can then be opened with Excel or similar applications. It just depends upon what assumptions you want to make pertaining to maximizing your potential user base, while minimizing the installation challenges useRs may face with your package.

Regards,

Marc Schwartz

On Sun, May 20, 2012 at 8:30 AM, Gabor Grothendieck
<ggrothendieck at gmail.com>  wrote:

On Sat, May 19, 2012 at 9:32 PM, Spencer Graves
<spencer.graves at structuremonitoring.com>  wrote:

Hello, All:


      The "writeFindFn2xls" function in the "sos" package tries to write an
Excel file with 3 sheets ('PackageSum2', 'findFn', 'call'). Unfortunately,
it is often unable to do this because of configuration problems that are not
easy to fix.  I've found 3 contributed packages that provide facilities to
write Excel files with multiple sheets. Unfortunately, I can't get any of
them to work consistently for me. Below please find test cases that
illustrate the problems.  Any suggestions for how to solve this problem will
be appreciated.


      Thanks,
      Spencer


library(dataframes2xls)

df1<- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2<- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile<- 'df12.xls'

write.xls(c(df1,df2), outFile)
# works

do.call(write.xls, list(c(df1, df2), outFile))
# Error in get(s[i]) : object 'structure(list(c1=1:2' not found

Try this:

dd<- list(df1 = df1, df2 = df2)
do.call("WriteXLS", list("dd", outFile))

or this:

do.call("WriteXLS", list(c("df1", "df2"), outFile)

That was for WriteXLS.  For dataframes2xls try this:

do.call("write.xls", list(quote(c(df1, df2)), outFile))

and also check out this page:

http://rwiki.sciviews.org/doku.php?id=tips:data-io:ms_windows

On 5/20/2012 5:52 AM, Gabor Grothendieck wrote:

On Sun, May 20, 2012 at 8:30 AM, Gabor Grothendieck
<ggrothendieck at gmail.com> ?wrote:

On Sat, May 19, 2012 at 9:32 PM, Spencer Graves
<spencer.graves at structuremonitoring.com> ?wrote:

Hello, All:


? ? ?The "writeFindFn2xls" function in the "sos" package tries to write
an
Excel file with 3 sheets ('PackageSum2', 'findFn', 'call').
Unfortunately,
it is often unable to do this because of configuration problems that are
not
easy to fix. ?I've found 3 contributed packages that provide facilities
to
write Excel files with multiple sheets. Unfortunately, I can't get any
of
them to work consistently for me. Below please find test cases that
illustrate the problems. ?Any suggestions for how to solve this problem
will
be appreciated.


? ? ?Thanks,
? ? ?Spencer


library(dataframes2xls)

df1<- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2<- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile<- 'df12.xls'

write.xls(c(df1,df2), outFile)
# works

do.call(write.xls, list(c(df1, df2), outFile))
# Error in get(s[i]) : object 'structure(list(c1=1:2' not found

Try this:

dd<- list(df1 = df1, df2 = df2)
do.call("WriteXLS", list("dd", outFile))

or this:

do.call("WriteXLS", list(c("df1", "df2"), outFile)

That was for WriteXLS. ?For dataframes2xls try this:

do.call("write.xls", list(quote(c(df1, df2)), outFile))

Hi, Gabor: ?Thanks. ?I think we're gaining on it, but I'm still not quite
there. ?Consider the following extension of my previous toy example:

library(dataframes2xls)

df1 <- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2 <- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile <- 'df12.xls'

write.xls(c(df1,df2), outFile)
# works

do.call(write.xls, list(quote(c(df1, df2)), outFile))
# works

df2x <- function(x, file)
? ?do.call(write.xls, list(x, file))
df2x(quote(c(df1, df2)), outFile)
# works

df2 <- function(x1, x2, file){
? ?x23 <- quote(c(x1, x2))
? ?do.call(write.xls, list(x23, file))
}
df2(df1, df2, outFile)
# Error in get(s[i]) : object 'x1' not found


? ? ?This is closer to what I need. ?The answer may lie in getting the right
"envir" argument for "do.call". ?However, I haven't yet found something that
works there.


? ? ?Thanks,
? ? ?Spencer

and also check out this page:

http://rwiki.sciviews.org/doku.php?id=tips:data-io:ms_windows

--
Spencer Graves, PE, PhD
President and Chief Technology Officer
Structure Inspection and Monitoring, Inc.
751 Emerson Ct.
San Jos?, CA 95126
ph: ?408-655-4567
web: ?www.structuremonitoring.com

Here is what it take to write out two sheets with XLConnect


# function to write out a sheet to an EXCEL file that I use
f.writeXLSheet<-
function (data, sheet, fileToWrite, rownames = NULL)
{
     require(XLConnect)
     writeWorksheetToFile(fileToWrite, data = data, sheet = sheet,
         rownames = rownames, styleAction = XLC$STYLE_ACTION.NONE)
}

df1<- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2<- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile<- 'df12.xls'

unlink(outFile)  # make sure there is no file to start with
f.writeXLSheet(df1, 'df1', outFile)
f.writeXLSheet(df2, 'df2', outFile)

I have attached the resulting Excel file (see how far it makes it).

On Sun, May 20, 2012 at 7:15 PM, Spencer Graves
<spencer.graves at structuremonitoring.com>  wrote:

On 5/20/2012 5:52 AM, Gabor Grothendieck wrote:

On Sun, May 20, 2012 at 8:30 AM, Gabor Grothendieck
<ggrothendieck at gmail.com>    wrote:

On Sat, May 19, 2012 at 9:32 PM, Spencer Graves
<spencer.graves at structuremonitoring.com>    wrote:

Hello, All:


      The "writeFindFn2xls" function in the "sos" package tries to write
an
Excel file with 3 sheets ('PackageSum2', 'findFn', 'call').
Unfortunately,
it is often unable to do this because of configuration problems that are
not
easy to fix.  I've found 3 contributed packages that provide facilities
to
write Excel files with multiple sheets. Unfortunately, I can't get any
of
them to work consistently for me. Below please find test cases that
illustrate the problems.  Any suggestions for how to solve this problem
will
be appreciated.


      Thanks,
      Spencer


library(dataframes2xls)

df1<- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2<- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile<- 'df12.xls'

write.xls(c(df1,df2), outFile)
# works

do.call(write.xls, list(c(df1, df2), outFile))
# Error in get(s[i]) : object 'structure(list(c1=1:2' not found

Try this:

dd<- list(df1 = df1, df2 = df2)
do.call("WriteXLS", list("dd", outFile))

or this:

do.call("WriteXLS", list(c("df1", "df2"), outFile)

That was for WriteXLS.  For dataframes2xls try this:

do.call("write.xls", list(quote(c(df1, df2)), outFile))

Hi, Gabor:  Thanks.  I think we're gaining on it, but I'm still not quite
there.  Consider the following extension of my previous toy example:

library(dataframes2xls)

df1<- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2<- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile<- 'df12.xls'

write.xls(c(df1,df2), outFile)
# works

do.call(write.xls, list(quote(c(df1, df2)), outFile))
# works

df2x<- function(x, file)
    do.call(write.xls, list(x, file))
df2x(quote(c(df1, df2)), outFile)
# works

df2<- function(x1, x2, file){
    x23<- quote(c(x1, x2))
    do.call(write.xls, list(x23, file))
}
df2(df1, df2, outFile)
# Error in get(s[i]) : object 'x1' not found


      This is closer to what I need.  The answer may lie in getting the right
"envir" argument for "do.call".  However, I haven't yet found something that
works there.


      Thanks,
      Spencer

and also check out this page:

http://rwiki.sciviews.org/doku.php?id=tips:data-io:ms_windows

On 5/20/2012 5:52 AM, Gabor Grothendieck wrote:

On Sun, May 20, 2012 at 8:30 AM, Gabor Grothendieck
<ggrothendieck at gmail.com> ?wrote:

On Sat, May 19, 2012 at 9:32 PM, Spencer Graves
<spencer.graves at structuremonitoring.com> ?wrote:

Hello, All:


? ? ?The "writeFindFn2xls" function in the "sos" package tries to write
an
Excel file with 3 sheets ('PackageSum2', 'findFn', 'call').
Unfortunately,
it is often unable to do this because of configuration problems that are
not
easy to fix. ?I've found 3 contributed packages that provide facilities
to
write Excel files with multiple sheets. Unfortunately, I can't get any
of
them to work consistently for me. Below please find test cases that
illustrate the problems. ?Any suggestions for how to solve this problem
will
be appreciated.


? ? ?Thanks,
? ? ?Spencer


library(dataframes2xls)

df1<- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2<- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile<- 'df12.xls'

write.xls(c(df1,df2), outFile)
# works

do.call(write.xls, list(c(df1, df2), outFile))
# Error in get(s[i]) : object 'structure(list(c1=1:2' not found

Try this:

dd<- list(df1 = df1, df2 = df2)
do.call("WriteXLS", list("dd", outFile))

or this:

do.call("WriteXLS", list(c("df1", "df2"), outFile)

That was for WriteXLS. ?For dataframes2xls try this:

do.call("write.xls", list(quote(c(df1, df2)), outFile))

Hi, Gabor: ?Thanks. ?I think we're gaining on it, but I'm still not quite
there. ?Consider the following extension of my previous toy example:


library(dataframes2xls)

df1 <- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2 <- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile <- 'df12.xls'

write.xls(c(df1,df2), outFile)
# works

do.call(write.xls, list(quote(c(df1, df2)), outFile))
# works

df2x <- function(x, file)
? ?do.call(write.xls, list(x, file))
df2x(quote(c(df1, df2)), outFile)
# works

df2 <- function(x1, x2, file){
? ?x23 <- quote(c(x1, x2))
? ?do.call(write.xls, list(x23, file))
}
df2(df1, df2, outFile)
# Error in get(s[i]) : object 'x1' not found


? ? ?This is closer to what I need. ?The answer may lie in getting the right
"envir" argument for "do.call". ?However, I haven't yet found something that
works there.


? ? ?Thanks,
? ? ?Spencer

and also check out this page:

http://rwiki.sciviews.org/doku.php?id=tips:data-io:ms_windows

--
Spencer Graves, PE, PhD
President and Chief Technology Officer
Structure Inspection and Monitoring, Inc.
751 Emerson Ct.
San Jos?, CA 95126
ph: ?408-655-4567
web: ?www.structuremonitoring.com

Unfortunately this is getting increasingly complex due to the
non-standard evaluation done by dataframes2xls but if you want to do
it then this will do it.  We copy dataframes2xls to the current
environment and reset write.xls's environment so that it finds the
arguments.


run<- function(x1, x2, file){

    df.names<- paste0(deparse(substitute(x1)), ":::", deparse(substitute(x2)))

    # copy dataframe2xls namespace contents here&  reset environment of write.xls
    here<- environment()
    ns<- asNamespace("dataframes2xls")
    for(nm in ls(ns)) here[[nm]]<- ns[[nm]]
    environment(write.xls)<- here

    x23<- quote(c(x1, x2))
    do.call("write.xls", list(x23, file, sh.names = df.names))
}

library(dataframes2xls)

df1<- data.frame(c1=1:2, c2=3:4, c3=5:6)
df2<- data.frame(c21=c(10.10101010101,20, 3), c22=c(50E50,60, 3) )
outFile<- 'df12.xls'

run(df1, df2, outFile)

-----Original Message-----
From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-
project.org] On Behalf Of Nurdiyanah Jambari
Sent: Tuesday, May 22, 2012 7:19 PM
To: Gabor Grothendieck
Cc: r-help at r-project.org
Subject: Re: [R] write.xls

Hi can you please help me with this. Ive come up with this code to read
my
file, but receive an error that I ve no idea how to fix.

read<-read.xlsx("D:\\FYP\\image\\Cropped

Images\\user227\\user227forger.xlsx", sheetName="Sheet1", rowIndex="1",
colIndex="varLH2y", colClasses="character", row.names=TRUE)

Error in colIndex - 1 : non-numeric argument to binary operator

here is an example of my data in .xlsx (I have 20 rows of data in this
.xlsx)

              varLH2x       varLH2y       varHH2x        varHH2y
varLL2x       varLL2y       varHL2x       varHL2y
1 4967.552716 12278.95794 679.3101705 254.2841431 4480777.986
3792655.605
2149.541058 827.9458738
2 5629.682598 8439.341331 812.4770397 326.7078909 6257926.174
4259659.878
1959.730324 1396.045697
3 5358.412977 8522.830297 967.7044858 420.9888243 6189762.401
3684682.244
3483.700887 1293.746943

--
Nurdiyanah Bt Hj Jambari
Student
Faculty of Engineering
Bachelor Engineering of Computer & Communication System Engineering
University Putra Malaysia

	[[alternative HTML version deleted]]