appeler python avec system () dans R pour exécuter un script python émulant la console python

Je veux passer un morceau de code Python Python dans R avec quelque chose comme system('python ...')et je me demandais si il existe un moyen facile d'émuler la console python dans ce cas. Par exemple, supposons que le code est "print 'hello world'"comment puis-je obtenir la sortie de ce genre dans la R?

>>> print 'hello world'
hello world

Cela montre seulement la sortie:

> system("python -c 'print \"hello world\"'")
hello world

Merci!

BTW, j'ai demandé à r-help mais n'ont pas obtenu une réponse encore (si je le fais, je vais poster la réponse ici).

source d'informationauteur Yihui Xie

  1. 2

    Le système de commande a une option appelée intern = FALSE. Faire de cette TRUE et le résultat est à peine visible avant, sera stocké dans une variable.

    Maintenant exécuter votre système de commande avec cette option, et vous devriez obtenir votre sortie directement dans votre variable. Comme ce

    tmp <- system("python -c 'print \"hello world\"'",intern=T)
  2. 0

    Mon travail autour de ce problème est de définir mes propres fonctions coller dans les paramètres, écrire temporaire .py fichier et exécuter le fichier python via un appel système. Voici un exemple qui appelle ArcGIS est la Distance Euclidienne de la fonction:

    py.EucDistance = function(poly_path,poly_name,snap_raster,out_raster_path_name,maximum_distance,mask){

    py_path = 'G:/Faculty/Mann/EucDistance_temp.py'
    poly_path_name = paste(poly_path,poly_name, sep='')

    fileConn<-file(paste(py_path))
    writeLines(c(
        paste('import arcpy'),
        paste('from arcpy import env'),
        paste('from arcpy.sa import *'),
        paste('arcpy.CheckOutExtension("spatial")'),

        paste('out_raster_path_name = "',out_raster_path_name,'"',sep=""),
        paste('snap_raster = "',snap_raster,'"',sep=""),
        paste('cellsize =arcpy.GetRasterProperties_management(snap_raster,"CELLSIZEX")'),
        paste('mask = "',mask,'"',sep=""),
        paste('maximum_distance = "',maximum_distance,'"',sep=""),
        paste('sr = arcpy.Describe(snap_raster).spatialReference'),

        paste('arcpy.env.overwriteOutput = True'),
        paste('arcpy.env.snapRaster = "',snap_raster,'"',sep=""),
        paste('arcpy.env.mask = mask'),
        paste('arcpy.env.scratchWorkspace ="G:/Faculty/Mann/Historic_BCM/Aggregated1080/Scratch.gdb"'),
        paste('arcpy.env.outputCoordinateSystem = sr'),


        # get spatial reference for raster and force output to that
        paste('sr = arcpy.Describe(snap_raster).spatialReference'),
        paste('py_projection = sr.exportToString()'),     
        paste('arcpy.env.extent = snap_raster'),
        paste('poly_name = "',poly_name,'"',sep=""),
        paste('poly_path_name = "',poly_path_name,'"',sep=""),

        paste('holder = EucDistance(poly_path_name, maximum_distance, cellsize, "")'),
        paste('holder = SetNull(holder < -9999, holder)'),
        paste('holder.save(out_raster_path_name) ')

    ), fileConn, sep = "\n")
    close(fileConn)

    system(paste('C:\\Python27\\ArcGIS10.1\\python.exe', py_path))
}