allow use of fcarepository.prg

DESCRIPTION

@@ -72,4 +72,4 @@ VignetteBuilder:
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2

R/concept_lattice.R

@@ -400,7 +400,9 @@ ConceptLattice <- R6::R6Class(
             attributes = private$attributes,
             objects = private$objects,
             extents = private$pr_extents[, candidates],
-            intents = private$pr_intents[, candidates])
+            intents = private$pr_intents[, candidates],
+            I = private$I
+          )
         )
 
       }
@@ -412,7 +414,9 @@ ConceptLattice <- R6::R6Class(
           extents = .extract_column(private$pr_extents,
                                     candidates),
           intents = .extract_column(private$pr_intents,
-                                    candidates))
+                                    candidates),
+          I = private$I
+        )
       )
 
     },
@@ -446,7 +450,9 @@ ConceptLattice <- R6::R6Class(
             attributes = private$attributes,
             objects = private$objects,
             extents = private$pr_extents[, candidates],
-            intents = private$pr_intents[, candidates])
+            intents = private$pr_intents[, candidates],
+            I = private$I
+          )
         )
 
       }
@@ -458,7 +464,8 @@ ConceptLattice <- R6::R6Class(
           extents = .extract_column(private$pr_extents,
                                     candidates),
           intents = .extract_column(private$pr_intents,
-                                    candidates))
+                                    candidates),
+          I = private$I)
       )
     },
 

R/formal_context.R

@@ -82,6 +82,8 @@ FormalContext <- R6::R6Class(
     #'
     #' If no \code{I} is used, the resulting \code{FormalContext} will be empty and not usable unless for loading a previously saved one. In this case, one can provide a \code{filename} to import. Only RDS, CSV and CXT files are currently supported.
     #'
+    #' If the file is not present, the fcarepository.org is looked for coincidences. If so, the corresponding context is loaded.
+    #'
     #' @return An object of the \code{FormalContext} class.
     #' @export
     #'
@@ -108,7 +110,51 @@ FormalContext <- R6::R6Class(
 
       }
 
-      version
+      if ((length(I) == 1) && is.character(I) && !file.exists(I)) {
+
+        warning("The file does not exist, trying to find it at fcarepository.org",
+                call. = FALSE,
+                immediate. = TRUE)
+
+        URL <- glue::glue("https://github.com/fcatools/contexts/raw/main/contexts/{I}")
+
+        file <- tempfile(fileext = ".cxt")
+
+        err <- try(
+          download.file(URL,
+                        destfile = file,
+                        quiet = TRUE)
+        )
+
+        if (inherits(err, "try-error")) {
+
+          stop("No such context.")
+
+        } else {
+
+          message("Found context.")
+
+          meta <- get_metadata(I)
+
+          if (!is.null(meta)) {
+
+            glue::glue("- {cli::style_underline('Title')}: {meta$title}\n- {cli::style_underline('Description')}: {stringr::str_to_sentence(meta$description)}\n- {cli::style_underline('Source')}: {meta$source}\n\n",
+                       .trim = FALSE) |>
+              cat()
+
+          }
+
+        }
+
+        self$load(file)
+
+        unlink(file)
+
+        return(invisible(self))
+
+      }
+
+      # version
 
       if (!capabilities()["long.double"] & getRversion() < "4.1.0") {
 

R/repository.R

@@ -0,0 +1,14 @@
+get_metadata <- function(ID) {
+
+  meta <- yaml::read_yaml("https://fcarepository.org/contexts.yaml")
+
+  if (ID %in% names(meta)) {
+
+    return(meta[[ID]])
+
+  }
+
+  return(NULL)
+
+}
+