diff --git a/R/plot_context.R b/R/plot_context.R index 3c2b6af..d35e2c6 100644 --- a/R/plot_context.R +++ b/R/plot_context.R @@ -92,11 +92,11 @@ plot_context <- function(I, to_latex, ...) { # Heatmap p <- I |> - Matrix::as.matrix() |> + Matrix::as.matrix() |> t() |> # Data wrangling as.data.frame() |> tibble::rownames_to_column(var = "object") |> - tidyr::pivot_longer(cols = colnames(I)) |> + tidyr::pivot_longer(cols = rownames(I)) |> dplyr::mutate(text = glue::glue( "{object}, {name} is {value}" )) |> @@ -115,9 +115,10 @@ plot_context <- function(I, to_latex, ...) { ggplot2::ylab("") + ggplot2::theme(legend.position = "none") + ggplot2::scale_y_discrete( - limits = rev + limits = rev(colnames(I)) ) + ggplot2::scale_x_discrete( + limits = rownames(I), position = "top" ) diff --git a/cran-comments.md b/cran-comments.md index b575585..60045e4 100644 --- a/cran-comments.md +++ b/cran-comments.md @@ -1,13 +1,12 @@ ## Test environments * local R installation, on MACOS BigSur 11.4, R version 4.3.0 (2023-04-21), platform: aarch64-apple-darwin20 (64-bit) * win-builder (devel) -* windows-latest (release), ubuntu-20.04 (release) via GitHub actions. +* macos-latest (release), windows-latest (release), ubuntu-20.04 (release) via GitHub actions. * Ubuntu Linux 20.04.1 LTS, R-release, GCC on R-hub. -* local R with valgrind using docker * Default platforms using devtools::check_rhub(). ## Comments -New version with some improvements. +New version with some improvements and several fixes for changes in other dependencies. ## R CMD check results There were no ERRORs, WARNINGs or NOTEs. diff --git a/doc/concept_lattice.html b/doc/concept_lattice.html index 430068c..37fff2d 100644 --- a/doc/concept_lattice.html +++ b/doc/concept_lattice.html @@ -834,9 +834,9 @@
$plot() fc_planets
$plot() fc_I
Also, we can export the formal context as a LaTeX table:
$to_latex()
fc_planets#> \begin{table} \caption{}\label{} \centering \begin{tabular}{r|ccccccc}
diff --git a/doc/implications.html b/doc/implications.html
index b20ad26..64a6aca 100644
--- a/doc/implications.html
+++ b/doc/implications.html
@@ -975,9 +975,9 @@ Simplification Logic
$implications$apply_rules(rules = c("composition",
fc_I"simplification"))
#> Processing batch
-#> --> Composition: from 12 to 12 in 0.001 secs.
-#> --> Simplification: from 12 to 12 in 0.03 secs.
-#> Batch took 0.031 secs.
+#> --> Composition: from 12 to 12 in 0 secs.
+#> --> Simplification: from 12 to 12 in 0.029 secs.
+#> Batch took 0.029 secs.
This enables the reduction of the cardinality and/or the size of the
ImplicationSet
.
In addition, the “simplification” rule to remove redundancies can be @@ -1011,8 +1011,8 @@
# Reordered implications
fc$implications
#> Implication set with 10 implications.
-#> Rule 1: {small, near, far, moon} -> {medium, large, no_moon}
-#> Rule 2: {medium, large, far, moon} -> {small, near, no_moon}
-#> Rule 3: {small, near, moon, no_moon} -> {medium, large, far}
-#> Rule 4: {large} -> {far, moon}
+#> Rule 1: {medium, large, far, moon} -> {small, near, no_moon}
+#> Rule 2: {medium} -> {far, moon}
+#> Rule 3: {small, large, far, moon} -> {medium, near, no_moon}
+#> Rule 4: {near} -> {small}
#> Rule 5: {no_moon} -> {small, near}
-#> Rule 6: {small, medium, far, moon} -> {large, near, no_moon}
-#> Rule 7: {small, large, far, moon} -> {medium, near, no_moon}
-#> Rule 8: {far} -> {moon}
-#> Rule 9: {medium} -> {far, moon}
-#> Rule 10: {near} -> {small}
This enables the reduction of the cardinality and/or the size of the
ImplicationSet
.