R Under development (unstable) (2025-01-22 r87618 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library("highs")
> 
> # -----------------------------------------------------------------------------
> #
> # Example from the designmatch package
> # - to reproduce error shown in gccUBSAN checks
> #
> # -----------------------------------------------------------------------------
> file <- system.file("op/distmatch_1.rds", package = "highs")
> op <- readRDS(file)
> str(op)
List of 8
 $ L      : num [1:10609] 14830 13685 7392 748 5460 ...
 $ lower  : num 0
 $ upper  : num [1:10609] 1 1 1 1 1 1 1 1 1 1 ...
 $ A      :List of 6
  ..$ i       : int [1:31827] 1 104 207 1 105 207 1 106 207 1 ...
  ..$ j       : int [1:31827] 1 1 1 2 2 2 3 3 3 4 ...
  ..$ v       : num [1:31827] 1 1 1 1 1 1 1 1 1 1 ...
  ..$ nrow    : int 207
  ..$ ncol    : int 10609
  ..$ dimnames: NULL
  ..- attr(*, "class")= chr "simple_triplet_matrix"
 $ lhs    : num [1:207] -Inf -Inf -Inf -Inf -Inf ...
 $ rhs    : num [1:207] 1 1 1 1 1 1 1 1 1 1 ...
 $ types  : chr [1:10609] "I" "I" "I" "I" ...
 $ control:List of 4
  ..$ parallel      : chr "off"
  ..$ threads       : int 1
  ..$ time_limit    : num 300
  ..$ log_to_console: logi FALSE
  ..- attr(*, "class")= chr "highs_control"
> sol <- do.call(highs_solve, op)
> 
> 
> # -----------------------------------------------------------------------------
> #
> # Example from the MatchIt package
> # - to reproduce error shown in gccUBSAN checks
> #
> # -----------------------------------------------------------------------------
> file <- system.file("op/matchit_1.rds", package = "highs")
> op <- readRDS(file)
> str(op)
List of 9
 $ L      : num [1:615] 1 1 1 1 1 1 1 1 1 1 ...
 $ lower  : num [1:615] 0 0 0 0 0 0 0 0 0 0 ...
 $ upper  : num [1:615] 1 1 1 1 1 1 1 1 1 1 ...
 $ A      : num [1:8, 1:615] 1 0 5.17 5.47 0 ...
 $ lhs    : num [1:8] 0 0 -Inf -Inf -Inf ...
 $ rhs    : num [1:8] 0 0 0 0 0 ...
 $ types  : chr [1:615] "I" "I" "I" "I" ...
 $ maximum: logi TRUE
 $ control:List of 2
  ..$ time_limit    : num 60
  ..$ log_to_console: logi FALSE
> sol <- do.call(highs_solve, op)
> 
> proc.time()
   user  system elapsed 
   0.50    0.07    0.56