Resolve cran test errors

R-proj/NAMESPACE

@@ -18,7 +18,6 @@ export(gen_rand_vpoly)
 export(gen_rand_zonotope)
 export(gen_simplex)
 export(gen_skinny_cube)
-export(get_full_dimensional_polytope)
 export(geweke)
 export(inner_ball)
 export(loadSdpaFormatFile)

R-proj/R/RcppExports.R

@@ -137,21 +137,6 @@ frustum_of_simplex <- function(a, z0) {
     .Call(`_volesti_frustum_of_simplex`, a, z0)
 }
 
-#' Internal rcpp function to compute the full dimensional polytope when a low dimensional is given
-#'
-#' @param P A low dimensional convex polytope in H-representation.
-#'
-#' @keywords internal
-#'
-#' @return A numerical matrix that describes the full dimensional polytope, a numerical matrix of the inverse
-#'         linear transformation that is applied on the input polytope, the numerical vector - point that the
-#'         input polytope is shifted and the product of the singular values of the matrix of the linear map 
-#'         applied on the input polytope.
-#'
-full_dimensional_polytope <- function(P) {
-    .Call(`_volesti_full_dimensional_polytope`, P)
-}
-
 #' Geweke's MCMC diagnostic
 #'
 #' @param samples A matrix that contans column-wise the sampled points from a geometric random walk.

R-proj/src/rounding.cpp

@@ -100,7 +100,7 @@ Rcpp::List rounding (Rcpp::Reference P,
             // Hpolytope
 
             if (Rcpp::as<MT>(P.field("Aeq")).rows() > 0) {
-                throw Rcpp::exception("volesti supports rounding for full dimensional polytopes. Maybe call function get_full_dimensional_polytope()");
+                throw Rcpp::exception("volesti supports rounding for full dimensional polytopes");
             } 
             Hpolytope HP(n, Rcpp::as<MT>(P.field("A")), Rcpp::as<VT>(P.field("b")));
             InnerBall = HP.ComputeInnerBall();