[R] Warning message in openxlsx

[peter dalgaard]

On 15 Jun 2016, at 11:04 , PIKAL Petr <petr.pikal at precheza.cz> wrote:

> Hi
> 
> not completely sure but is there a variable with name "fonts" in some of your data frames?


That doesn't usually give a warning, unless an option is set, and even then, it's not quite the same message:

> options(warnPartialMatchDollar=TRUE)
> airquality$O
  [1]  41  36  12  18  NA  28  23  19   8  NA   7  16  11  14  18  14  34   6
....
Warning message:
In `$.data.frame`(airquality, O) :
  Partial match of 'O' to 'Ozone' in data frame

So it might another $-method that does check for partial matching(?). 

At any rate, this sort of thing can often be debugged using 

options(warn=2, error=recover)

E.g., (with the above option still on)

> options(warn=2, error=recover)
> airquality$O
Error in `$.data.frame`(airquality, O) : 
  (converted from warning) Partial match of 'O' to 'Ozone' in data frame

Enter a frame number, or 0 to exit   

1: airquality$O
2: `$.data.frame`(airquality, O)
3: warning(gettextf("Partial match of '%s' to '%s' in data frame", name, names
4: .signalSimpleWarning("Partial match of 'O' to 'Ozone' in data frame", quote
5: withRestarts({
    .Internal(.signalCondition(simpleWarning(msg, call), msg
6: withOneRestart(expr, restarts[[1]])
7: doWithOneRestart(return(expr), restart)

Selection: 2
Called from: withRestarts({
    .Internal(.signalCondition(simpleWarning(msg, call), msg, 
        call))
    .Internal(.dfltWarn(msg, call))
}, muffleWarning = function() NULL)
Browse[1]> ls()
[1] "a"     "name"  "names" "x"    
Browse[1]> x
    Ozone Solar.R Wind Temp Month Day
1      41     190  7.4   67     5   1
2      36     118  8.0   72     5   2
....
153    20     223 11.5   68     9  30
Browse[1]> name
[1] "O"
Browse[1]> names
[1] "Ozone"   "Solar.R" "Wind"    "Temp"    "Month"   "Day"    

-pd

> 
> Regards
> Petr
> 
>> -----Original Message-----
>> From: R-help [mailto:r-help-bounces at r-project.org] On Behalf Of
>> G.Maubach at weinwolf.de
>> Sent: Tuesday, June 14, 2016 4:12 PM
>> To: r-help at r-project.org
>> Subject: [R] Warning message in openxlsx
>> 
>> Hi All,
>> 
>> I get the warning message
>> 
>> Warning message:
>> In styles$font : partial match of 'font' to 'fonts'
>> 
>> when executing
>> 
>> 
>>> xls_workbook <- t_create_workbook()
>>> xls_sheetname <- "Kunden"
>>> xls_ds_to_save <- ds_merge1
>>> xls_filename <- paste0(data_created,
>> "_Merge1_BW-SAP-Kunden_cleaned.xlsx")
>>> t_add_sheet(workbook = xls_workbook,
>> +             sheetname = xls_sheetname,
>> +             dataset = xls_ds_to_save)
>>> t_write_xlsx(workbook = xls_workbook,
>> +              path = path_output,
>> +              filename = xls_filename,
>> +              overwrite = TRUE)
>> 
>> where t_create_workbook() is
>> 
>> return(createWorkbook())
>> 
>> and t_add_sheet() is
>> 
>> addWorksheet(workbook,
>>    sheetName = sheetname)
>>  writeDataTable(workbook,
>>    sheet = sheetname,
>>    x = dataset)
>>  ### writeDataTable writes data to a sheet an adds
>>  ### autofilter to the first line
>>  if (freeze_row <= 1 | freeze_col <= 1) {
>>    NULL # do nothing
>>  }
>>  else {
>>    freezePane(workbook,
>>      sheet = sheetname,
>>      firstActiveRow = freeze_row,
>>      firstActiveCol = freeze_col)
>>  }
>> 
>>  setColWidths(workbook,
>>    sheet = sheetname,
>>    cols = 1:ncol(dataset),
>>    widths = "auto")
>> 
>> and t_write_xlsx is
>> 
>> saveWorkbook(workbook,
>>    file = file.path(path, filename),
>>    overwrite = overwrite)
>> 
>> I am woundring what "partial match of 'font' to 'fonts'" means cause I do not
>> call it in the functions calls. I use these calls a lot in my programs but never got
>> this message before.
>> 
>> What does this message mean? How can I avoid this message?
>> 
>> Kind regards
>> 
>> Georg Maubach
>> 
>> PS: You can find more information about the used functions by going to
>> https://sourceforge.net/projects/r-project-utilities/files/?source=navbar
>> .
>> 
>> ______________________________________________

-- 
Peter Dalgaard, Professor,
Center for Statistics, Copenhagen Business School
Solbjerg Plads 3, 2000 Frederiksberg, Denmark
Phone: (+45)38153501
Office: A 4.23
Email: pd.mes at cbs.dk  Priv: PDalgd at gmail.com