rstudio/src/cpp/server/ServerREnvironment.cpp at master · usersbin/rstudio · GitHub

History

77 lines (62 loc) · 2.13 KB

Raw

* ServerREnvironment.cpp

* This program is licensed to you under the terms of version 3 of the

* GNU Affero General Public License. This program is distributed WITHOUT

* ANY EXPRESS OR IMPLIED WARRANTY, INCLUDING THOSE OF NON-INFRINGEMENT,

* MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. Please refer to the

* AGPL (http://www.gnu.org/licenses/agpl-3.0.txt) for more details.

#include "ServerREnvironment.hpp"

#include <core/Error.hpp>

#include <core/Log.hpp>

#include <core/Thread.hpp>

#include <core/r_util/REnvironment.hpp>

#include <server/ServerOptions.hpp>

#include <server/ServerUriHandlers.hpp>

using namespace core;

namespace server {

namespace r_environment {

namespace {

// static R environment vars detected during initialization

r_util::EnvironmentVars s_rEnvironmentVars;

}

bool initialize(std::string* pErrMsg)

{

// check for which R override

FilePath rWhichRPath;

std::string whichROverride = server::options().rsessionWhichR();

if (!whichROverride.empty())

rWhichRPath = FilePath(whichROverride);

// determine rLdPaths script location

FilePath rLdScriptPath(server::options().rldpathPath());

std::string ldLibraryPath = server::options().rsessionLdLibraryPath();

// attempt to detect R environment

std::string errMsg;

r_util::EnvironmentVars rEnvVars;

return r_util::detectREnvironment(rWhichRPath,

rLdScriptPath,

ldLibraryPath,

&s_rEnvironmentVars,

pErrMsg);

}

std::vector<std::pair<std::string,std::string> > variables()

{

// make a copy protected by a mutex just to be on the safest

// possible side (the copy is cheap and we're not sure what

// universal guarantees about multi-threaded read access to

// std::vector are)

static boost::mutex s_variablesMutex ;

LOCK_MUTEX(s_variablesMutex)

{

return s_rEnvironmentVars;

}

END_LOCK_MUTEX

// mutex related error

return r_util::EnvironmentVars();

}

} // namespace r_environment

} // namespace server

rstudio/src/cpp/server/ServerREnvironment.cpp at master · usersbin/rstudio · GitHub

Uh oh!

Expand file tree

Breadcrumbs

ServerREnvironment.cpp

Latest commit

History

Breadcrumbs

ServerREnvironment.cpp

File metadata and controls