@@ -23,8 +23,8 @@ Rcpp.system.file <- function(...){
23
23
# # Use R's internal knowledge of path settings to find the lib/ directory
24
24
# # plus optinally an arch-specific directory on system building multi-arch
25
25
RcppLdPath <- 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."))
28
28
" "
29
29
}
30
30
@@ -37,8 +37,8 @@ RcppLdPath <- function() {
37
37
# # Note that this is probably being called from LdFlags()
38
38
# # Updated Nov 2013: We no longer build a library. This should be deprecated.
39
39
RcppLdFlags <- 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."))
42
42
" "
43
43
}
44
44
@@ -58,8 +58,8 @@ RcppCxxFlags <- function(cxx0x=FALSE) {
58
58
# # Shorter names, and call cat() directly
59
59
# # CxxFlags defaults to no using c++0x extensions are these are considered non-portable
60
60
CxxFlags <- 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."))
63
63
cat(RcppCxxFlags(cxx0x = cxx0x ))
64
64
}
65
65
@@ -74,8 +74,8 @@ RcppCapabilities <- capabilities <- function() .Call( rcpp_capabilities )
74
74
# compile, load and call the cxx0x.c script to identify whether
75
75
# the compiler is GCC >= 4.3
76
76
RcppCxx0xFlags <- 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."))
79
79
script <- Rcpp.system.file( " discovery" , " cxx0x.R" )
80
80
flag <- capture.output( source( script ) )
81
81
flag
0 commit comments