@@ -23,8 +23,8 @@ Rcpp.system.file <- function(...){
2323# # Use R's internal knowledge of path settings to find the lib/ directory
2424# # plus optinally an arch-specific directory on system building multi-arch
2525RcppLdPath <- function () {
26- .Deprecated(msg = paste(" This function is now deprecated as it has not" ,
27- " been needed since 2013." ))
26+ # .Deprecated(msg=paste("This function is now deprecated as it has not",
27+ # "been needed since 2013."))
2828 " "
2929}
3030
@@ -37,8 +37,8 @@ RcppLdPath <- function() {
3737# # Note that this is probably being called from LdFlags()
3838# # Updated Nov 2013: We no longer build a library. This should be deprecated.
3939RcppLdFlags <- function () {
40- .Deprecated(msg = paste(" This function is now deprecated as it has not" ,
41- " been needed since 2013." ))
40+ # .Deprecated(msg=paste("This function is now deprecated as it has not",
41+ # "been needed since 2013."))
4242 " "
4343}
4444
@@ -58,8 +58,8 @@ RcppCxxFlags <- function(cxx0x=FALSE) {
5858# # Shorter names, and call cat() directly
5959# # CxxFlags defaults to no using c++0x extensions are these are considered non-portable
6060CxxFlags <- function (cxx0x = FALSE ) {
61- .Deprecated(msg = paste(" This function is now deprecated as R uses minimally" ,
62- " viable compilers om all platforme." ))
61+ # .Deprecated(msg=paste("This function is now deprecated as R uses minimally",
62+ # "viable compilers om all platforme."))
6363 cat(RcppCxxFlags(cxx0x = cxx0x ))
6464}
6565
@@ -74,8 +74,8 @@ RcppCapabilities <- capabilities <- function() .Call( rcpp_capabilities )
7474# compile, load and call the cxx0x.c script to identify whether
7575# the compiler is GCC >= 4.3
7676RcppCxx0xFlags <- function () {
77- .Deprecated(msg = paste(" This function is now deprecated as R uses minimally" ,
78- " viable compilers om all platforme." ))
77+ # .Deprecated(msg=paste("This function is now deprecated as R uses minimally",
78+ # "viable compilers om all platforme."))
7979 script <- Rcpp.system.file( " discovery" , " cxx0x.R" )
8080 flag <- capture.output( source( script ) )
8181 flag
0 commit comments