From 55f168b8f779d35e844d3b4b29edb038855905c0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Carlos=20Ag=C3=BCero=20Barquero?= Date: Wed, 27 Feb 2019 17:01:52 -0600 Subject: [PATCH] Se actualiza el readme --- README.Rmd | 12 +++--- README.md | 116 +++++++++++++++++++++++++++-------------------------- 2 files changed, 65 insertions(+), 63 deletions(-) diff --git a/README.Rmd b/README.Rmd index 6de3fe6..e684da4 100644 --- a/README.Rmd +++ b/README.Rmd @@ -37,15 +37,13 @@ session <- start_server() ## Iniciar sesión en Facebook -```{r facebook_login, echo=F} -invisible(capture.output(login_facebook(session, username = "dev.aguero@gmail.com", password = "anx21ysi_face."))) -cat("Se está redirigiendo el navegador a la url: https://m.facebook.com ...\n") -cat("Se inición sesión en https://m.facebook.com con el usuario *****************\n") +```{r facebook_login} +login_facebook(x = session, + username = keyring::key_get("facebook_email"), + password = keyring::key_get("facebook_pass")) ``` -```{r facebook_login2, eval=F} -login_facebook(session, username = "", password = "") -``` +Nota: Para evitar exponer tus credenciales en tu código se recomienda el uso de paquete [keying](https://github.com/r-lib/keyring). ## Función `get_fb_posts` diff --git a/README.md b/README.md index 8c8b17f..1ab4fe7 100644 --- a/README.md +++ b/README.md @@ -23,19 +23,22 @@ Iniciar el servidor de selenium ``` r library(socialscrapeR) session <- start_server() -#> ✔ Se inició con éxito el servidor de Selenium en el puerto 4567. +#> ✔ Se inició con éxito el servidor de Selenium en el puerto 4567. ``` Iniciar sesión en Facebook -------------------------- - #> Se está redirigiendo el navegador a la url: https://m.facebook.com ... - #> Se inición sesión en https://m.facebook.com con el usuario ***************** - ``` r -login_facebook(session, username = "", password = "") +login_facebook(x = session, + username = keyring::key_get("facebook_email"), + password = keyring::key_get("facebook_pass")) +#> Se está redirigiendo el navegador a la url: https://m.facebook.com ... +#> Se inición sesión en https://m.facebook.com con el usuario dev.aguero@gmail.com ``` +Nota: Para evitar exponer tus credenciales en tu código se recomienda el uso de paquete [keying](https://github.com/r-lib/keyring). + Función `get_fb_posts` ---------------------- @@ -60,11 +63,11 @@ tibble::glimpse(df) #> Observations: 10 #> Variables: 6 #> $ page_id "265769886798719", "265769886798719", "26576988679871… -#> $ post_id "2710316119010738", "2710289569013393", "271026106234… -#> $ post_text "deportes: tras la escandalosa goleada 5 a 1 frente a… -#> $ n_comments 11, 5, 5, 7, 487, 396, 15, 295, 8, 82 -#> $ n_shares 2, 24, 0, 3, 347, 81, 4, 189, 11, 11 -#> $ date_time 2019-02-27 21:12:35, 2019-02-27 20:58:29, 2019-02-27… +#> $ post_id "2710460312329652", "2710430988999251", "271039755566… +#> $ post_text "el sector expresó que nadie está pidiendo que no exi… +#> $ n_comments 2, 0, 121, 16, 26, 28, 10, 5, 7, 604 +#> $ n_shares 2, 0, 46, 10, 17, 4, 37, 4, 4, 503 +#> $ date_time 2019-02-27 22:47:33, 2019-02-27 22:26:08, 2019-02-27… ``` La función `get_fb_post` retorna los siguiente valores. @@ -86,24 +89,24 @@ tibble::glimpse(df) #> Observations: 10 #> Variables: 13 #> $ page_id "265769886798719", "265769886798719", "2657698… -#> $ post_id "2710316119010738", "2710289569013393", "27102… -#> $ post_text "deportes: tras la escandalosa goleada 5 a 1 f… -#> $ n_comments 11, 5, 5, 7, 487, 396, 15, 295, 8, 82 -#> $ n_shares 2, 24, 0, 3, 347, 81, 4, 189, 11, 11 -#> $ like 15, 30, 36, 25, 132, 920, 97, 191, 115, 651 -#> $ love 2, 0, 0, 0, 10, 115, 9, 6, 2, 45 -#> $ wow 0, 20, 24, 0, 45, 27, 3, 78, 1, 5 -#> $ haha 32, 1, 0, 13, 176, 28, 11, 12, 2, 28 -#> $ sad 1, 122, 31, 2, 7, 4, 0, 31, 0, 3 -#> $ angry 1, 1, 0, 0, 584, 648, 0, 224, 0, 0 -#> $ reactions_by_user [, , $ date_time 2019-02-27 21:12:35, 2019-02-27 20:58:29, 201… +#> $ post_id "2710460312329652", "2710430988999251", "27103… +#> $ post_text "el sector expresó que nadie está pidiendo que… +#> $ n_comments 2, 0, 121, 16, 26, 28, 10, 5, 7, 604 +#> $ n_shares 2, 0, 46, 10, 17, 4, 37, 4, 4, 503 +#> $ like 20, 10, 467, 41, 68, 30, 40, 50, 33, 183 +#> $ love 1, 0, 72, 0, 2, 3, 2, 0, 0, 10 +#> $ wow 0, 0, 30, 2, 9, 1, 24, 34, 0, 53 +#> $ haha 0, 0, 268, 1, 2, 59, 1, 0, 13, 232 +#> $ sad 0, 0, 56, 3, 11, 1, 161, 49, 2, 11 +#> $ angry 0, 0, 10, 5, 1, 4, 1, 0, 0, 761 +#> $ reactions_by_user [, , NULL, $ date_time 2019-02-27 22:47:33, 2019-02-27 22:26:08, 201… tibble::glimpse(df$reactions_by_user[[1]]) -#> Observations: 51 +#> Observations: 21 #> Variables: 3 -#> $ full_name "Silvia Ajon Jiron", "Ricardo Ferraro", "Joseph Or… -#> $ user_name "/silvia.ajonjiron", "/ricardo.ferraro.1671", "/jo… -#> $ type_reaction NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… +#> $ full_name "Hazel Fernández Armador", "Johanna Miranda", "Mar… +#> $ user_name "/hazel.fernandezarmador", "/johanna.miranda.3597"… +#> $ type_reaction "like", "like", "like", "like", "like", "like", "l… ``` La función `get_fb_post` retorna los siguiente valores. @@ -135,19 +138,19 @@ tibble::glimpse(df) #> Observations: 10 #> Variables: 14 #> $ page_id "265769886798719", "265769886798719", "2657698… -#> $ post_id "2710316119010738", "2710289569013393", "27102… -#> $ post_text "deportes: tras la escandalosa goleada 5 a 1 f… -#> $ n_comments 11, 6, 5, 7, 491, 398, 15, 295, 8, 82 -#> $ n_shares 2, 24, 0, 3, 353, 81, 4, 189, 11, 11 -#> $ like 16, 30, 36, 25, 133, 924, 97, 191, 116, 651 -#> $ love 2, 0, 0, 0, 10, 115, 9, 6, 2, 45 -#> $ wow 0, 20, 24, 0, 46, 27, 3, 78, 1, 5 -#> $ haha 32, 1, 0, 13, 181, 28, 11, 12, 2, 28 -#> $ sad 1, 125, 32, 2, 7, 4, 0, 31, 0, 3 -#> $ angry 1, 1, 0, 0, 589, 653, 0, 224, 0, 0 -#> $ reactions_by_user [, , $ comments [, , $ date_time 2019-02-27 21:12:35, 2019-02-27 20:58:29, 201… +#> $ post_id "2710460312329652", "2710430988999251", "27103… +#> $ post_text "el sector expresó que nadie está pidiendo que… +#> $ n_comments 2, 0, 121, 16, 26, 29, 10, 5, 7, 604 +#> $ n_shares 2, 0, 47, 10, 17, 4, 37, 4, 4, 506 +#> $ like 22, 11, 472, 41, 69, 30, 40, 50, 33, 183 +#> $ love 1, 0, 72, 0, 2, 3, 2, 0, 0, 10 +#> $ wow 0, 0, 31, 2, 9, 1, 24, 34, 0, 53 +#> $ haha 0, 0, 269, 1, 2, 59, 1, 0, 13, 232 +#> $ sad 0, 0, 56, 3, 11, 1, 162, 49, 2, 11 +#> $ angry 0, 0, 10, 5, 1, 4, 1, 0, 0, 764 +#> $ reactions_by_user [, , $ comments [, NULL, , $ date_time 2019-02-27 22:47:33, 2019-02-27 22:26:08, 201… ``` La función `get_fb_post` retorna los siguiente valores. @@ -173,8 +176,8 @@ La función `get_fb_post` retorna los siguiente valores. - **text** : texto del comentario - **date\_time** : hora y fecha en la que se realizó la publicación -Extraer las últimas 10 publicaciones de una pagina de Facebook, información sobre las reacciones, comentarios de la publicación y los usuario que compartieron la aplicación. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ +Extraer las últimas 10 publicaciones de una pagina de Facebook, información sobre las reacciones, comentarios de la publicación y los usuario que compartieron la publicación. +------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ``` r df <- get_fb_posts(session, pagename = "crhoy.comnoticias", n = 10, reactions = T, commets = T, shares = T) @@ -183,20 +186,20 @@ tibble::glimpse(df) #> Observations: 10 #> Variables: 15 #> $ page_id "265769886798719", "265769886798719", "2657698… -#> $ post_id "2710360732339610", "2710316119010738", "27102… -#> $ post_text "tratarán de reubicarlos en otras empresas", "… -#> $ n_comments 1, 11, 6, 5, 7, 505, 404, 15, 297, 8 -#> $ n_shares 2, 2, 24, 1, 3, 363, 82, 4, 190, 11 -#> $ like 6, 16, 31, 38, 26, 138, 933, 98, 191, 116 -#> $ love 0, 3, 1, 0, 0, 10, 116, 9, 6, 2 -#> $ wow 1, 0, 21, 24, 0, 47, 28, 3, 78, 1 -#> $ haha 1, 32, 1, 0, 13, 187, 31, 11, 12, 2 -#> $ sad 1, 1, 127, 33, 2, 7, 5, 0, 31, 0 -#> $ angry 0, 2, 1, 0, 0, 599, 660, 0, 228, 0 -#> $ reactions_by_user [, , $ comments [, , $ shares [, , $ date_time 2019-02-27 21:41:28, 2019-02-27 21:12:35, 201… +#> $ post_id "2710460312329652", "2710430988999251", "27103… +#> $ post_text "el sector expresó que nadie está pidiendo que… +#> $ n_comments 2, 0, 124, 17, 27, 29, 10, 5, 7, 605 +#> $ n_shares 2, 0, 48, 11, 17, 4, 37, 4, 4, 509 +#> $ like 27, 12, 481, 41, 69, 30, 40, 51, 33, 186 +#> $ love 1, 0, 76, 0, 2, 3, 2, 0, 0, 10 +#> $ wow 0, 0, 32, 2, 9, 1, 24, 35, 0, 53 +#> $ haha 0, 0, 272, 1, 2, 60, 1, 0, 13, 234 +#> $ sad 0, 0, 57, 3, 11, 1, 163, 49, 2, 11 +#> $ angry 0, 0, 11, 5, 1, 4, 1, 0, 0, 772 +#> $ reactions_by_user [, , $ comments [, NULL, , $ shares [NULL, NULL, , $ date_time 2019-02-27 22:47:33, 2019-02-27 22:26:08, 201… ``` La función `get_fb_post` retorna los siguiente valores. @@ -229,5 +232,6 @@ La función `get_fb_post` retorna los siguiente valores. ``` r stop_server(session) -#> ✔ Se cerró con éxito el servidor de Selenium +#> ✔ Se cerró con éxito el servidor de Selenium. +#> NULL ```