Skip to content

Instantly share code, notes, and snippets.

@joshuaulrich joshuaulrich/cput.c
Last active Jan 12, 2017

Embed
What would you like to do?
Call dput() from C
/* Copyright (C) 2017 Joshua M. Ulrich
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include <Rinternals.h>
void cput(SEXP x) {
SEXP call, result;
PROTECT(call = lang2(install("dput"), x));
PROTECT(result = eval(call, R_BaseEnv));
UNPROTECT(2);
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.