Last updated on 2024-07-22 01:49:22 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.4.0 | 3.15 | 36.46 | 39.61 | NOTE | |
| r-devel-linux-x86_64-debian-gcc | 0.4.0 | 2.87 | 27.58 | 30.45 | NOTE | |
| r-devel-linux-x86_64-fedora-clang | 0.4.0 | 50.51 | NOTE | |||
| r-devel-linux-x86_64-fedora-gcc | 0.4.0 | 48.30 | NOTE | |||
| r-devel-windows-x86_64 | 0.4.0 | 6.00 | 50.00 | 56.00 | NOTE | |
| r-patched-linux-x86_64 | 0.4.0 | 2.32 | 34.83 | 37.15 | ERROR | |
| r-release-linux-x86_64 | 0.4.0 | 3.65 | 33.84 | 37.49 | NOTE | |
| r-release-macos-arm64 | 0.4.0 | 24.00 | NOTE | |||
| r-release-macos-x86_64 | 0.4.0 | 32.00 | NOTE | |||
| r-release-windows-x86_64 | 0.4.0 | 4.00 | 51.00 | 55.00 | NOTE | |
| r-oldrel-macos-arm64 | 0.4.0 | 27.00 | NOTE | |||
| r-oldrel-macos-x86_64 | 0.4.0 | 29.00 | NOTE | |||
| r-oldrel-windows-x86_64 | 0.4.0 | 5.00 | 54.00 | 59.00 | NOTE |
Version: 0.4.0
Check: LazyData
Result: NOTE
'LazyData' is specified without a 'data' directory
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-x86_64, r-patched-linux-x86_64, r-release-linux-x86_64, r-release-macos-arm64, r-release-macos-x86_64, r-release-windows-x86_64, r-oldrel-macos-arm64, r-oldrel-macos-x86_64, r-oldrel-windows-x86_64
Version: 0.4.0
Check: examples
Result: ERROR
Running examples in ‘excelR-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: excelTable
> ### Title: Create excel table using jexcel library
> ### Aliases: excelTable
>
> ### ** Examples
>
> ### table example ---
> library(excelR)
>
> data = data.frame(Model = c('Mazda', 'Pegeout', 'Honda Fit', 'Honda CRV'),
+ Date=c('2006-01-01', '2005-01-01','2004-01-01', '2003-01-01' ),
+ Availability = c(TRUE, FALSE, TRUE, TRUE))
>
>
> columns = data.frame(title=c('Model', 'Date', 'Availability'),
+ width= c(300, 300, 300),
+ type=c('text', 'calendar', 'checkbox'))
>
> excelTable(data=data, columns = columns)
>
> ### columns parameter ----
> # https://bossanova.uk/jexcel/v3/examples/column-types
> data <- data.frame(Car = c("Jazz", "Civic"),
+ Make = c("Honda", "Honda" ),
+ Photo = c("https://images.unsplash.com/photo-1535498730771-e735b998cd64?ixlib=rb
+ -1.2.1&ixid=eyJhcHBfaWQiOjEyMDd9&auto=format&fit=crop&w=634&q=80",
+ "https://images.unsplash.com/photo-1533106497176-45ae19e68ba2?ixlib=rb
+ -1.2.1&ixid=eyJhcHBfaWQiOjEyMDd9&auto=format&fit=crop&w=1950&q=80"),
+ Available = as.Date(c("2019-02-12", "2018-07-11")),
+ Stock = c(TRUE, TRUE),
+ Price = c(2000, 4000.01),
+ Color = c("#777700", "#007777"))
>
> columns <- data.frame(title = colnames(data),
+ type = c("hidden", "dropdown", "image", "calendar",
+ "checkbox", "numeric", "color"),
+ width = c(120, 200, 200, 80, 100, 100, 100),
+ source = I(list(NA, c("Honda", "Alfa Romeo", "Audi", "Bmw"),
+ NA, NA, NA, NA, NA)),
+ mask = c(NA, NA, NA, NA, NA, "$ #.##,00", NA),
+ decimal = c(NA, NA, NA, NA, NA, ",", NA),
+ render = c(NA, NA, NA, NA, NA, NA, "square"))
>
> excelTable(data = data, columns = columns)
>
> ### no arguments with matrix ----
> excelTable(matrix(1:20, ncol=4))
Warning in excelTable(matrix(1:20, ncol = 4)) :
Since both column title and colHeaders are not specified 'data' column name will be used as column headers
Since 'type' attribute is not specified and autoColTypes is true, detecting type from 'data'
>
> ### some additional arguments with mtcars ----
> library(excelR)
>
> # for now we need to manipulate a data.frame with rownames
> mtcars2 <- cbind(name = rownames(mtcars), mtcars, stringsAsFactors = FALSE)
> mtcars2$name <- rownames(mtcars)
> # change rownames so jsonlite will not convert to a column
> rownames(mtcars2) <- seq_len(nrow(mtcars2))
>
> excelTable(
+ data = mtcars2,
+ colHeaders = toupper(colnames(mtcars2)), # upper case the column names
+ fullscreen = TRUE, # fill screen with table
+ columnDrag = TRUE, # allow dragging (reordering) of columns
+ rowDrag = FALSE, # disallow dragging (reordering) of rows
+ wordWrap = TRUE, # wrap text in a cell if is longer than cell width
+ )
Since 'type' attribute is not specified and autoColTypes is true, detecting type from 'data'
>
> # an empty table
> excelTable(
+ data = NULL,
+ minDimensions = c(5,20) # columns, rows
+ )
>
>
> ### styling cells ----
> library(excelR)
>
> excelTable(
+ data = matrix(1:100, ncol = 10),
+ style = list(
+ "A1" = 'background-color: orange; fontWeight: bold; color: white;',
+ "B1" = 'background-color: orange;',
+ "C1" = 'background-color: orange;',
+ "D1" = 'background-color: orange;'
+ )
+ )
Warning in excelTable(data = matrix(1:100, ncol = 10), style = list(A1 = "background-color: orange; fontWeight: bold; color: white;", :
Since both column title and colHeaders are not specified 'data' column name will be used as column headers
Since 'type' attribute is not specified and autoColTypes is true, detecting type from 'data'
>
> ### custom formating ----
> # conditional formats
> library(excelR)
>
> set.seed(1)
> data <- matrix(sample(c(-1:1), size = 25, replace = TRUE), nrow = 5)
>
> updateTable <- "function(instance, cell, col, row, val, label, cellName) {
+ val = cell.innerText;
+ if (val < 0) {
+ cell.style.color = 'red';
+ } else if (val > 0) {
+ cell.style.color = 'green';
+ } else {
+ cell.style.color = 'orange';
+ }
+ }"
>
> excelTable(data = data, updateTable = htmlwidgets::JS(updateTable))
Warning in excelTable(data = data, updateTable = htmlwidgets::JS(updateTable)) :
Since both column title and colHeaders are not specified 'data' column name will be used as column headers
Since 'type' attribute is not specified and autoColTypes is true, detecting type from 'data'
>
> # example from https://bossanova.uk/jexcel/v3/examples/table-scripting
> library(excelR)
>
> data <- jsonlite::fromJSON('[
+ ["BR", "Cheese", 1, 3.99],
+ ["CA", "Apples", 0, 1.00],
+ ["US", "Carrots", 1, 0.90],
+ ["GB", "Oranges", 0, 1.20],
+ ["CH", "Chocolats", 1, 0.40],
+ ["AR", "Apples", 1, 1.10],
+ ["AR", "Bananas", 1, 0.30],
+ ["BR", "Oranges", 1, 0.95],
+ ["BR", "Pears", 1, 0.90],
+ ["", "", "", "=ROUND(SUM(D1:D8), 2)"]
+ ]')
>
> columns <- jsonlite::fromJSON('[
+ { "type": "autocomplete", "title":"Country", "width":"250", "url":"/jexcel/countries" },
+ { "type": "autocomplete", "title":"Food", "width":"150",
+ "source":["Apples","Bananas","Carrots","Oranges","Cheese","Kiwi","Chocolats","Pears"] },
+ { "type": "checkbox", "title":"Stock", "width":"100" },
+ { "type": "number", "title":"Price", "width":"100" }
+ ]')
>
> # url option to source in excelTable param columns
> columns$source[1] <- list(jsonlite::fromJSON(paste0('https://bossanova.uk', columns$url[1])))
Warning in open.connection(con, "rb") :
URL 'https://bossanova.uk/jexcel/countries': Timeout of 60 seconds was reached
Error in open.connection(con, "rb") :
cannot open the connection to 'https://bossanova.uk/jexcel/countries'
Calls: <Anonymous> ... parse_and_simplify -> parseJSON -> parse_con -> open -> open.connection
Execution halted
Flavor: r-patched-linux-x86_64