Last updated on 2020-12-31 00:46:40 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.3.1 | 4.43 | 66.24 | 70.67 | OK | |
| r-devel-linux-x86_64-debian-gcc | 0.3.1 | 3.33 | 49.24 | 52.57 | OK | |
| r-devel-linux-x86_64-fedora-clang | 0.3.1 | 90.35 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 0.3.1 | 81.86 | OK | |||
| r-devel-windows-ix86+x86_64 | 0.3.1 | 9.00 | 87.00 | 96.00 | ERROR | |
| r-patched-linux-x86_64 | 0.3.1 | 4.38 | 63.04 | 67.42 | OK | |
| r-patched-solaris-x86 | 0.3.1 | 117.90 | OK | |||
| r-release-linux-x86_64 | 0.3.1 | 3.98 | 62.77 | 66.75 | OK | |
| r-release-macos-x86_64 | 0.3.1 | OK | ||||
| r-release-windows-ix86+x86_64 | 0.3.1 | 9.00 | 69.00 | 78.00 | ERROR | |
| r-oldrel-macos-x86_64 | 0.3.1 | OK | ||||
| r-oldrel-windows-ix86+x86_64 | 0.3.1 | 6.00 | 66.00 | 72.00 | ERROR |
Version: 0.3.1
Check: tests
Result: ERROR
Running 'testthat.R' [8s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(customLayout)
> library(vdiffr)
>
> on_appveyor <- function() {
+ identical(Sys.getenv("APPVEYOR"), "True")
+ }
> on_cran <- function() {
+ !identical(Sys.getenv("NOT_CRAN"), "true")
+ }
>
> # Use minimal fonts.conf to speed up fc-cache
> if (on_appveyor() || on_cran()) {
+ gdtools::set_dummy_conf()
+ }
NULL
>
>
> test_phl_with_flextable <- function(seed = 123) {
+ lay <- lay_bind_row(
+ lay_new(1),
+ lay_new(cbind(1,2)),
+ heights = c(3, 2)
+ )
+ olay <- phl_layout(lay)
+
+ set.seed(seed)
+
+ pptx <- officer::read_pptx()
+ pptx <- officer::add_slide(
+ pptx,
+ layout = "Two Content", master = "Office Theme")
+
+ data("diamonds", package = "ggplot2")
+ diamonds2 <- diamonds[sample.int(nrow(diamonds), 100), ]
+
+ tbl1 <- dplyr::group_by(diamonds2, cut)
+ tbl1 <- dplyr::summarise(tbl1, Price = mean(price))
+
+ t1 <- phl_adjust_table(tbl1, olay, 1)
+ t2 <- phl_adjust_table(tbl1, olay, 2)
+ t3 <- phl_adjust_table(tbl1, olay, 3)
+
+ pptx <- phl_with_flextable(pptx, olay, 1, t1)
+ pptx <- phl_with_flextable(pptx, olay, 2, t2)
+ pptx <- phl_with_flextable(pptx, olay, 3, t3)
+ pptx
+ }
>
>
> test_phl_with_vg <- function(seed = 123) {
+ lay <- lay_bind_row(
+ lay_new(1),
+ lay_new(cbind(1,2)),
+ heights = c(3, 2)
+ )
+ olay <- phl_layout(lay)
+
+ set.seed(seed)
+
+ pptx <- officer::read_pptx()
+ pptx <- officer::add_slide(pptx,
+ layout = "Two Content", master = "Office Theme")
+
+ phl_with_vg(pptx, olay, 1, code = {
+ plot(rnorm(10), rnorm(10))
+ title("Title")
+ })
+
+ data("diamonds", package = "ggplot2")
+ diamonds2 <- diamonds[sample.int(nrow(diamonds), 100), ]
+ gg1 <- ggplot2::ggplot(diamonds2) +
+ ggplot2::geom_point(aes(carat, price))
+ gg2 <- ggplot2::ggplot(diamonds2) +
+ ggplot2::geom_point(aes(depth, price))
+
+ phl_with_vg(pptx, olay, 2, ggobj = gg1)
+ phl_with_vg(pptx, olay, 3, ggobj = gg2)
+ pptx
+ }
>
> test_phl_with_gg <- function(seed = 123) {
+ lay <- lay_bind_row(
+ lay_new(1),
+ lay_new(cbind(1,2)),
+ heights = c(3, 2)
+ )
+ olay <- phl_layout(lay)
+
+ set.seed(seed)
+
+ pptx <- officer::read_pptx()
+ pptx <- officer::add_slide(pptx,
+ layout = "Two Content", master = "Office Theme")
+
+ data("diamonds", package = "ggplot2")
+ diamonds2 <- diamonds[sample.int(nrow(diamonds), 100), ]
+
+ gg <- ggplot2::ggplot(diamonds2) +
+ ggplot2::geom_point(aes(x, price))
+
+ phl_with_gg(pptx, olay, 1, gg)
+
+ gg1 <- ggplot2::ggplot(diamonds2) +
+ ggplot2::geom_point(aes(carat, price))
+ gg2 <- ggplot2::ggplot(diamonds2) +
+ ggplot2::geom_point(aes(depth, price))
+
+ phl_with_gg(pptx, olay, 2, gg1)
+ phl_with_gg(pptx, olay, 3, gg2)
+ pptx
+ }
>
> test_phl_with_table <- function(seed = 123) {
+
+ lay <- lay_bind_col(
+ lay_new(rbind(1,2)),
+ lay_new(rbind(1,2)),
+ widths = c(3,4)
+ )
+
+ olay <- phl_layout(lay)
+
+ set.seed(seed)
+
+ pptx <- officer::read_pptx()
+ pptx <- officer::add_slide(
+ pptx,
+ layout = "Two Content", master = "Office Theme")
+
+ irs <- iris[sample.int(nrow(iris), 10), ]
+
+ pptx <- phl_with_table(pptx, olay, 1, head(irs,3))
+ pptx <- phl_with_table(pptx, olay, 2, head(irs,4))
+ pptx <- phl_with_table(pptx, olay, 3, head(irs[,c(1,5)],3))
+ pptx <- phl_with_table(pptx, olay, 4, head(irs[,c(1,5)],4))
+ pptx
+ }
>
> test_phl_with_flextable_large_tables_warns <- function(seed = 123) {
+
+ lay <- lay_bind_col(
+ lay_new(rbind(1,2)),
+ lay_new(rbind(1,2))
+ )
+
+ olay <- phl_layout(lay)
+
+ set.seed(seed)
+
+ pptx <- officer::read_pptx()
+ pptx <- officer::add_slide(
+ pptx,
+ layout = "Two Content", master = "Office Theme")
+
+ irs <- iris[sample.int(nrow(iris), 10), ]
+
+ tbl1 <- phl_adjust_table(irs, olay, 1)
+ tbl2 <- phl_adjust_table(irs, olay, 2, method = "height")
+ tbl3 <- phl_adjust_table(irs, olay, 3)
+ tbl4 <- flextable::flextable(irs)
+ tbl4 <- flextable::height_all(tbl4, tbl3$header$rowheights * 1.5)
+ tbl4 <- flextable::width(tbl4, width = tbl4$body$colwidths * 1.5)
+
+
+ phl_with_flextable(pptx, olay, 1, tbl1)
+ phl_with_flextable(pptx, olay, 2, tbl2)
+ phl_with_flextable(pptx, olay, 3, tbl3)
+ phl_with_flextable(pptx, olay, 4, tbl4)
+ pptx
+ }
>
> # print(test_phl_with_flextable(), "tests/pptx/phl_with_flextable.pptx")
> # print(test_phl_with_flextable_large_tables_warns(), "tests/pptx/test_phl_with_flextable_large_tables_warns.pptx")
> # print(test_phl_with_gg(), "tests/pptx/phl_with_gg.pptx")
> # print(test_phl_with_table(), "tests/pptx/test_phl_with_table.pptx")
> # print(test_phl_with_vg(), "tests/pptx/phl_with_vg.pptx")
>
> test_check("customLayout")
== Skipped tests ===============================================================
* On CRAN (5)
* Skipping on CRAN (9)
* empty test (3)
== Warnings ====================================================================
-- Warning (test-basic.R:37:3): Basic bind -------------------------------------
'fnc' is deprecated.
Use 'lay_bind_row' instead.
See help("Deprecated")
Backtrace:
1. vdiffr::expect_doppelganger("basic bind row", make_basic_test(layRowBind)) test-basic.R:37:2
2. vdiffr:::writer(fig, testcase, title)
4. vdiffr:::print_plot.function(plot, title)
5. customLayout:::p()
6. customLayout:::fnc(l1, l2) test-basic.R:26:4
7. base::.Deprecated("lay_bind_row")
== Failed tests ================================================================
-- Failure (test-flextable.R:24:3): phl_adjust_table - some tests --------------
tbl$header$rowheights < fs[["height"]] is not TRUE
`actual`: FALSE
`expected`: TRUE
[ FAIL 1 | WARN 1 | SKIP 17 | PASS 17 ]
Error: Test failures
Execution halted
Flavor: r-devel-windows-ix86+x86_64
Version: 0.3.1
Check: tests
Result: ERROR
Running 'testthat.R' [5s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(customLayout)
> library(vdiffr)
>
> on_appveyor <- function() {
+ identical(Sys.getenv("APPVEYOR"), "True")
+ }
> on_cran <- function() {
+ !identical(Sys.getenv("NOT_CRAN"), "true")
+ }
>
> # Use minimal fonts.conf to speed up fc-cache
> if (on_appveyor() || on_cran()) {
+ gdtools::set_dummy_conf()
+ }
NULL
>
>
> test_phl_with_flextable <- function(seed = 123) {
+ lay <- lay_bind_row(
+ lay_new(1),
+ lay_new(cbind(1,2)),
+ heights = c(3, 2)
+ )
+ olay <- phl_layout(lay)
+
+ set.seed(seed)
+
+ pptx <- officer::read_pptx()
+ pptx <- officer::add_slide(
+ pptx,
+ layout = "Two Content", master = "Office Theme")
+
+ data("diamonds", package = "ggplot2")
+ diamonds2 <- diamonds[sample.int(nrow(diamonds), 100), ]
+
+ tbl1 <- dplyr::group_by(diamonds2, cut)
+ tbl1 <- dplyr::summarise(tbl1, Price = mean(price))
+
+ t1 <- phl_adjust_table(tbl1, olay, 1)
+ t2 <- phl_adjust_table(tbl1, olay, 2)
+ t3 <- phl_adjust_table(tbl1, olay, 3)
+
+ pptx <- phl_with_flextable(pptx, olay, 1, t1)
+ pptx <- phl_with_flextable(pptx, olay, 2, t2)
+ pptx <- phl_with_flextable(pptx, olay, 3, t3)
+ pptx
+ }
>
>
> test_phl_with_vg <- function(seed = 123) {
+ lay <- lay_bind_row(
+ lay_new(1),
+ lay_new(cbind(1,2)),
+ heights = c(3, 2)
+ )
+ olay <- phl_layout(lay)
+
+ set.seed(seed)
+
+ pptx <- officer::read_pptx()
+ pptx <- officer::add_slide(pptx,
+ layout = "Two Content", master = "Office Theme")
+
+ phl_with_vg(pptx, olay, 1, code = {
+ plot(rnorm(10), rnorm(10))
+ title("Title")
+ })
+
+ data("diamonds", package = "ggplot2")
+ diamonds2 <- diamonds[sample.int(nrow(diamonds), 100), ]
+ gg1 <- ggplot2::ggplot(diamonds2) +
+ ggplot2::geom_point(aes(carat, price))
+ gg2 <- ggplot2::ggplot(diamonds2) +
+ ggplot2::geom_point(aes(depth, price))
+
+ phl_with_vg(pptx, olay, 2, ggobj = gg1)
+ phl_with_vg(pptx, olay, 3, ggobj = gg2)
+ pptx
+ }
>
> test_phl_with_gg <- function(seed = 123) {
+ lay <- lay_bind_row(
+ lay_new(1),
+ lay_new(cbind(1,2)),
+ heights = c(3, 2)
+ )
+ olay <- phl_layout(lay)
+
+ set.seed(seed)
+
+ pptx <- officer::read_pptx()
+ pptx <- officer::add_slide(pptx,
+ layout = "Two Content", master = "Office Theme")
+
+ data("diamonds", package = "ggplot2")
+ diamonds2 <- diamonds[sample.int(nrow(diamonds), 100), ]
+
+ gg <- ggplot2::ggplot(diamonds2) +
+ ggplot2::geom_point(aes(x, price))
+
+ phl_with_gg(pptx, olay, 1, gg)
+
+ gg1 <- ggplot2::ggplot(diamonds2) +
+ ggplot2::geom_point(aes(carat, price))
+ gg2 <- ggplot2::ggplot(diamonds2) +
+ ggplot2::geom_point(aes(depth, price))
+
+ phl_with_gg(pptx, olay, 2, gg1)
+ phl_with_gg(pptx, olay, 3, gg2)
+ pptx
+ }
>
> test_phl_with_table <- function(seed = 123) {
+
+ lay <- lay_bind_col(
+ lay_new(rbind(1,2)),
+ lay_new(rbind(1,2)),
+ widths = c(3,4)
+ )
+
+ olay <- phl_layout(lay)
+
+ set.seed(seed)
+
+ pptx <- officer::read_pptx()
+ pptx <- officer::add_slide(
+ pptx,
+ layout = "Two Content", master = "Office Theme")
+
+ irs <- iris[sample.int(nrow(iris), 10), ]
+
+ pptx <- phl_with_table(pptx, olay, 1, head(irs,3))
+ pptx <- phl_with_table(pptx, olay, 2, head(irs,4))
+ pptx <- phl_with_table(pptx, olay, 3, head(irs[,c(1,5)],3))
+ pptx <- phl_with_table(pptx, olay, 4, head(irs[,c(1,5)],4))
+ pptx
+ }
>
> test_phl_with_flextable_large_tables_warns <- function(seed = 123) {
+
+ lay <- lay_bind_col(
+ lay_new(rbind(1,2)),
+ lay_new(rbind(1,2))
+ )
+
+ olay <- phl_layout(lay)
+
+ set.seed(seed)
+
+ pptx <- officer::read_pptx()
+ pptx <- officer::add_slide(
+ pptx,
+ layout = "Two Content", master = "Office Theme")
+
+ irs <- iris[sample.int(nrow(iris), 10), ]
+
+ tbl1 <- phl_adjust_table(irs, olay, 1)
+ tbl2 <- phl_adjust_table(irs, olay, 2, method = "height")
+ tbl3 <- phl_adjust_table(irs, olay, 3)
+ tbl4 <- flextable::flextable(irs)
+ tbl4 <- flextable::height_all(tbl4, tbl3$header$rowheights * 1.5)
+ tbl4 <- flextable::width(tbl4, width = tbl4$body$colwidths * 1.5)
+
+
+ phl_with_flextable(pptx, olay, 1, tbl1)
+ phl_with_flextable(pptx, olay, 2, tbl2)
+ phl_with_flextable(pptx, olay, 3, tbl3)
+ phl_with_flextable(pptx, olay, 4, tbl4)
+ pptx
+ }
>
> # print(test_phl_with_flextable(), "tests/pptx/phl_with_flextable.pptx")
> # print(test_phl_with_flextable_large_tables_warns(), "tests/pptx/test_phl_with_flextable_large_tables_warns.pptx")
> # print(test_phl_with_gg(), "tests/pptx/phl_with_gg.pptx")
> # print(test_phl_with_table(), "tests/pptx/test_phl_with_table.pptx")
> # print(test_phl_with_vg(), "tests/pptx/phl_with_vg.pptx")
>
> test_check("customLayout")
== Skipped tests ===============================================================
* On CRAN (5)
* Skipping on CRAN (9)
* empty test (3)
== Warnings ====================================================================
-- Warning (test-basic.R:37:3): Basic bind -------------------------------------
'fnc' is deprecated.
Use 'lay_bind_row' instead.
See help("Deprecated")
Backtrace:
1. vdiffr::expect_doppelganger("basic bind row", make_basic_test(layRowBind)) test-basic.R:37:2
2. vdiffr:::writer(fig, testcase, title)
4. vdiffr:::print_plot.function(plot, title)
5. customLayout:::p()
6. customLayout:::fnc(l1, l2) test-basic.R:26:4
7. base::.Deprecated("lay_bind_row")
== Failed tests ================================================================
-- Failure (test-flextable.R:24:3): phl_adjust_table - some tests --------------
tbl$header$rowheights < fs[["height"]] is not TRUE
`actual`: FALSE
`expected`: TRUE
[ FAIL 1 | WARN 1 | SKIP 17 | PASS 17 ]
Error: Test failures
Execution halted
Flavor: r-release-windows-ix86+x86_64
Version: 0.3.1
Check: tests
Result: ERROR
Running 'testthat.R' [7s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(customLayout)
> library(vdiffr)
>
> on_appveyor <- function() {
+ identical(Sys.getenv("APPVEYOR"), "True")
+ }
> on_cran <- function() {
+ !identical(Sys.getenv("NOT_CRAN"), "true")
+ }
>
> # Use minimal fonts.conf to speed up fc-cache
> if (on_appveyor() || on_cran()) {
+ gdtools::set_dummy_conf()
+ }
NULL
>
>
> test_phl_with_flextable <- function(seed = 123) {
+ lay <- lay_bind_row(
+ lay_new(1),
+ lay_new(cbind(1,2)),
+ heights = c(3, 2)
+ )
+ olay <- phl_layout(lay)
+
+ set.seed(seed)
+
+ pptx <- officer::read_pptx()
+ pptx <- officer::add_slide(
+ pptx,
+ layout = "Two Content", master = "Office Theme")
+
+ data("diamonds", package = "ggplot2")
+ diamonds2 <- diamonds[sample.int(nrow(diamonds), 100), ]
+
+ tbl1 <- dplyr::group_by(diamonds2, cut)
+ tbl1 <- dplyr::summarise(tbl1, Price = mean(price))
+
+ t1 <- phl_adjust_table(tbl1, olay, 1)
+ t2 <- phl_adjust_table(tbl1, olay, 2)
+ t3 <- phl_adjust_table(tbl1, olay, 3)
+
+ pptx <- phl_with_flextable(pptx, olay, 1, t1)
+ pptx <- phl_with_flextable(pptx, olay, 2, t2)
+ pptx <- phl_with_flextable(pptx, olay, 3, t3)
+ pptx
+ }
>
>
> test_phl_with_vg <- function(seed = 123) {
+ lay <- lay_bind_row(
+ lay_new(1),
+ lay_new(cbind(1,2)),
+ heights = c(3, 2)
+ )
+ olay <- phl_layout(lay)
+
+ set.seed(seed)
+
+ pptx <- officer::read_pptx()
+ pptx <- officer::add_slide(pptx,
+ layout = "Two Content", master = "Office Theme")
+
+ phl_with_vg(pptx, olay, 1, code = {
+ plot(rnorm(10), rnorm(10))
+ title("Title")
+ })
+
+ data("diamonds", package = "ggplot2")
+ diamonds2 <- diamonds[sample.int(nrow(diamonds), 100), ]
+ gg1 <- ggplot2::ggplot(diamonds2) +
+ ggplot2::geom_point(aes(carat, price))
+ gg2 <- ggplot2::ggplot(diamonds2) +
+ ggplot2::geom_point(aes(depth, price))
+
+ phl_with_vg(pptx, olay, 2, ggobj = gg1)
+ phl_with_vg(pptx, olay, 3, ggobj = gg2)
+ pptx
+ }
>
> test_phl_with_gg <- function(seed = 123) {
+ lay <- lay_bind_row(
+ lay_new(1),
+ lay_new(cbind(1,2)),
+ heights = c(3, 2)
+ )
+ olay <- phl_layout(lay)
+
+ set.seed(seed)
+
+ pptx <- officer::read_pptx()
+ pptx <- officer::add_slide(pptx,
+ layout = "Two Content", master = "Office Theme")
+
+ data("diamonds", package = "ggplot2")
+ diamonds2 <- diamonds[sample.int(nrow(diamonds), 100), ]
+
+ gg <- ggplot2::ggplot(diamonds2) +
+ ggplot2::geom_point(aes(x, price))
+
+ phl_with_gg(pptx, olay, 1, gg)
+
+ gg1 <- ggplot2::ggplot(diamonds2) +
+ ggplot2::geom_point(aes(carat, price))
+ gg2 <- ggplot2::ggplot(diamonds2) +
+ ggplot2::geom_point(aes(depth, price))
+
+ phl_with_gg(pptx, olay, 2, gg1)
+ phl_with_gg(pptx, olay, 3, gg2)
+ pptx
+ }
>
> test_phl_with_table <- function(seed = 123) {
+
+ lay <- lay_bind_col(
+ lay_new(rbind(1,2)),
+ lay_new(rbind(1,2)),
+ widths = c(3,4)
+ )
+
+ olay <- phl_layout(lay)
+
+ set.seed(seed)
+
+ pptx <- officer::read_pptx()
+ pptx <- officer::add_slide(
+ pptx,
+ layout = "Two Content", master = "Office Theme")
+
+ irs <- iris[sample.int(nrow(iris), 10), ]
+
+ pptx <- phl_with_table(pptx, olay, 1, head(irs,3))
+ pptx <- phl_with_table(pptx, olay, 2, head(irs,4))
+ pptx <- phl_with_table(pptx, olay, 3, head(irs[,c(1,5)],3))
+ pptx <- phl_with_table(pptx, olay, 4, head(irs[,c(1,5)],4))
+ pptx
+ }
>
> test_phl_with_flextable_large_tables_warns <- function(seed = 123) {
+
+ lay <- lay_bind_col(
+ lay_new(rbind(1,2)),
+ lay_new(rbind(1,2))
+ )
+
+ olay <- phl_layout(lay)
+
+ set.seed(seed)
+
+ pptx <- officer::read_pptx()
+ pptx <- officer::add_slide(
+ pptx,
+ layout = "Two Content", master = "Office Theme")
+
+ irs <- iris[sample.int(nrow(iris), 10), ]
+
+ tbl1 <- phl_adjust_table(irs, olay, 1)
+ tbl2 <- phl_adjust_table(irs, olay, 2, method = "height")
+ tbl3 <- phl_adjust_table(irs, olay, 3)
+ tbl4 <- flextable::flextable(irs)
+ tbl4 <- flextable::height_all(tbl4, tbl3$header$rowheights * 1.5)
+ tbl4 <- flextable::width(tbl4, width = tbl4$body$colwidths * 1.5)
+
+
+ phl_with_flextable(pptx, olay, 1, tbl1)
+ phl_with_flextable(pptx, olay, 2, tbl2)
+ phl_with_flextable(pptx, olay, 3, tbl3)
+ phl_with_flextable(pptx, olay, 4, tbl4)
+ pptx
+ }
>
> # print(test_phl_with_flextable(), "tests/pptx/phl_with_flextable.pptx")
> # print(test_phl_with_flextable_large_tables_warns(), "tests/pptx/test_phl_with_flextable_large_tables_warns.pptx")
> # print(test_phl_with_gg(), "tests/pptx/phl_with_gg.pptx")
> # print(test_phl_with_table(), "tests/pptx/test_phl_with_table.pptx")
> # print(test_phl_with_vg(), "tests/pptx/phl_with_vg.pptx")
>
> test_check("customLayout")
== Skipped tests ===============================================================
* On CRAN (5)
* Skipping on CRAN (9)
* empty test (3)
== Warnings ====================================================================
-- Warning (test-basic.R:37:3): Basic bind -------------------------------------
'fnc' is deprecated.
Use 'lay_bind_row' instead.
See help("Deprecated")
Backtrace:
1. vdiffr::expect_doppelganger("basic bind row", make_basic_test(layRowBind)) test-basic.R:37:2
2. vdiffr:::writer(fig, testcase, title)
4. vdiffr:::print_plot.function(plot, title)
5. customLayout:::p()
6. customLayout:::fnc(l1, l2) test-basic.R:26:4
7. base::.Deprecated("lay_bind_row")
== Failed tests ================================================================
-- Failure (test-flextable.R:24:3): phl_adjust_table - some tests --------------
tbl$header$rowheights < fs[["height"]] is not TRUE
`actual`: FALSE
`expected`: TRUE
[ FAIL 1 | WARN 1 | SKIP 17 | PASS 17 ]
Error: Test failures
Execution halted
Flavor: r-oldrel-windows-ix86+x86_64