Comment rendre l'objet créé dans la fonction utilisable à l'extérieur

J'ai créé une fonction qui produit une matrice comme un résultat, mais je ne peux pas comprendre comment faire de la sortie de cette fonction utilisable à l'extérieur de la fonction de l'environnement, de sorte que je pourrait, par exemple, l'enregistrer dans un fichier csv.

Mon code pour la fonction est la suivante:

créé une fonction qui prend un url de site spécifique et renvoie le titre de la page:

getTitle <- function(url) {
  webpage <- readLines(url)
  first.row <- webpage[1]
  start <- regexpr("<title>", first.row)
  end <- regexpr("</title>", first.row)
  title <- substr(first.row,start+7,end-1)
  return(title)
}

créé une fonction qui prend vecteur d'url et retourne le n*2 de la matrice avec les urls, et les titres de page:

getTitles <- function(pages) {
  my.matrix <- matrix(NA, ncol=2, nrow=nrow(pages))
  for (i in seq_along(1:nrow(pages))) {
    my.matrix[i,1] <- as.character(pages[i,])
    my.matrix[i,2] <- getTitle(as.character(pages[i,])) }
  return(my.matrix)
  print(my.matrix)}

Après l'exécution de ces fonctions sur un exemple de fichier à partir d'ici http://goo.gl/D9lLZ qui je l'importation à lire.csv fonction et le nom "mypages", j'obtiens le résultat suivant:

getTitles(mypages)
     [,1]                                               [,2]                                                
[1,] "http://support.google.com/adwords/answer/1704395" "Create your first ad campaign - AdWords Help"      
[2,] "http://support.google.com/adwords/answer/1704424" "How costs are calculated in AdWords - AdWords Help"
[3,] "http://support.google.com/adwords/answer/2375470" "Organizing your account for success - AdWords Help"

C'est exactement ce dont j'ai besoin, mais j'aimerais être en mesure d'exporter cette sortie au format de fichier csv ou de les réutiliser pour de nouvelles manipulations. Cependant, lorsque j'essaie d'imprimer(mon.la matrice), j'obtiens un message d'erreur indiquant "Erreur: l'objet 'mon.matrice "pas trouvé"

J'ai l'impression que c'est assez basique écart à ma connaissance, mais n'ont pas été en collaboration avec la R pour un certain temps et n'a pas pu résoudre.

Merci!
Sergey

source d'informationauteur Sergey Samusev