{"action":"created","issue":{"url":"https://api.github.com/repos/HenrikBengtsson/future/issues/110","repository_url":"https://api.github.com/repos/HenrikBengtsson/future","labels_url":"https://api.github.com/repos/HenrikBengtsson/future/issues/110/labels{/name}","comments_url":"https://api.github.com/repos/HenrikBengtsson/future/issues/110/comments","events_url":"https://api.github.com/repos/HenrikBengtsson/future/issues/110/events","html_url":"https://github.com/HenrikBengtsson/future/issues/110","id":187550030,"number":110,"title":"Several remote IP's not working","user":{"login":"56north","id":13257672,"avatar_url":"https://avatars.githubusercontent.com/u/13257672?v=3","gravatar_id":"","url":"https://api.github.com/users/56north","html_url":"https://github.com/56north","followers_url":"https://api.github.com/users/56north/followers","following_url":"https://api.github.com/users/56north/following{/other_user}","gists_url":"https://api.github.com/users/56north/gists{/gist_id}","starred_url":"https://api.github.com/users/56north/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/56north/subscriptions","organizations_url":"https://api.github.com/users/56north/orgs","repos_url":"https://api.github.com/users/56north/repos","events_url":"https://api.github.com/users/56north/events{/privacy}","received_events_url":"https://api.github.com/users/56north/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"assignees":[],"milestone":null,"comments":6,"created_at":"2016-11-06T09:08:30Z","updated_at":"2016-11-07T02:42:15Z","closed_at":null,"body":"I have a problem, that if I set up a plan with one remote worker, then it works fine, but if I set up at plan with several, then it doesnt.\r\n\r\n## Setup \r\nUbuntu\r\nSSH is setup and IPs are add'ed to .ssh \r\n\r\n\r\n```r\r\nsessionInfo()\r\n```\r\n\r\n```\r\n## R version 3.3.1 (2016-06-21)\r\n## Platform: x86_64-pc-linux-gnu (64-bit)\r\n## Running under: Ubuntu 16.04.1 LTS\r\n## \r\n## locale:\r\n##  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              \r\n##  [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    \r\n##  [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   \r\n##  [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 \r\n##  [9] LC_ADDRESS=C               LC_TELEPHONE=C            \r\n## [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       \r\n## \r\n## attached base packages:\r\n## [1] stats     graphics  grDevices utils     datasets  methods   base     \r\n## \r\n## loaded via a namespace (and not attached):\r\n##  [1] magrittr_1.5    assertthat_0.1  formatR_1.4     tools_3.3.1    \r\n##  [5] htmltools_0.3.5 yaml_2.1.13     tibble_1.2      Rcpp_0.12.7    \r\n##  [9] stringi_1.1.2   rmarkdown_1.1   knitr_1.14      stringr_1.1.0  \r\n## [13] digest_0.6.10   evaluate_0.10\r\n```\r\n\r\n\r\n## Example 1: this works\r\n\r\n\r\n```r\r\nlibrary(\"future\")\r\n\r\n# IP's are fake (just for write up)\r\nbots <- paste0(\"root@\", c(\"192.168.0.1\", \"192.168.0.2\", \"192.168.0.3\"))\r\n\r\n## Plan with just one bot\r\nplan(remote, workers = bots[1])\r\n\r\n## Scrape data\r\ndebatdata <- future({\r\n\r\n  library(rvest)\r\n  library(stringr)\r\n\r\n  debat <- lapply(0:9, function(i){\r\n\r\n    baseurl <- \"https://www.information.dk/debat?page=\"\r\n\r\n    url <- paste0(baseurl, i)\r\n\r\n    html_data <- read_html(url)\r\n\r\n    links <- html_data %>% html_nodes(\"h3 a\") %>% html_attr(\"href\")\r\n    sorter <- str_detect(links, \"^/debat\")\r\n    links <- links[sorter]\r\n    links <- paste0(\"https://www.information.dk\", links)\r\n    title <- html_data %>% html_nodes(\"h3\") %>% html_text()\r\n    title <- title[sorter]\r\n    teasertext <- html_data %>% html_nodes(\".teaser-text\") %>% html_text()\r\n\r\n    debat <- list(title = title, teasertext = teasertext, links = links)\r\n\r\n    return(debat)\r\n\r\n  })\r\n\r\n  debat\r\n})\r\n\r\n## Display data\r\ndebatdata <- value(debatdata)\r\n```\r\n\r\n# Example 2: this DOESN'T work\r\n\r\n\r\n```r\r\nlibrary(\"future\")\r\n\r\n# IP's are fake (just for write up)\r\nbots <- paste0(\"root@\", c(\"192.168.0.1\", \"192.168.0.2\", \"192.168.0.3\"))\r\n\r\n## Plan with just one bot\r\nplan(remote, workers = bots)\r\n\r\n# !!-- Only difference in script is removal of above subset in bots --!!\r\n\r\n## Scrape data\r\ndebatdata <- future({\r\n\r\n  library(rvest)\r\n  library(stringr)\r\n\r\n  debat <- lapply(0:9, function(i){\r\n\r\n    baseurl <- \"https://www.information.dk/debat?page=\"\r\n\r\n    url <- paste0(baseurl, i)\r\n\r\n    html_data <- read_html(url)\r\n\r\n    links <- html_data %>% html_nodes(\"h3 a\") %>% html_attr(\"href\")\r\n    sorter <- str_detect(links, \"^/debat\")\r\n    links <- links[sorter]\r\n    links <- paste0(\"https://www.information.dk\", links)\r\n    title <- html_data %>% html_nodes(\"h3\") %>% html_text()\r\n    title <- title[sorter]\r\n    teasertext <- html_data %>% html_nodes(\".teaser-text\") %>% html_text()\r\n\r\n    debat <- list(title = title, teasertext = teasertext, links = links)\r\n\r\n    return(debat)\r\n\r\n  })\r\n\r\n  debat\r\n})\r\n\r\n## Display data\r\ndebatdata <- value(debatdata)\r\n```\r\n\r\nThis script simply just stalls, ie the red light goes up and stays on. It does that already when I call the `future()` where as the first script doesn't.\r\n"},"comment":{"url":"https://api.github.com/repos/HenrikBengtsson/future/issues/comments/258735209","html_url":"https://github.com/HenrikBengtsson/future/issues/110#issuecomment-258735209","issue_url":"https://api.github.com/repos/HenrikBengtsson/future/issues/110","id":258735209,"user":{"login":"HenrikBengtsson","id":1616850,"avatar_url":"https://avatars.githubusercontent.com/u/1616850?v=3","gravatar_id":"","url":"https://api.github.com/users/HenrikBengtsson","html_url":"https://github.com/HenrikBengtsson","followers_url":"https://api.github.com/users/HenrikBengtsson/followers","following_url":"https://api.github.com/users/HenrikBengtsson/following{/other_user}","gists_url":"https://api.github.com/users/HenrikBengtsson/gists{/gist_id}","starred_url":"https://api.github.com/users/HenrikBengtsson/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/HenrikBengtsson/subscriptions","organizations_url":"https://api.github.com/users/HenrikBengtsson/orgs","repos_url":"https://api.github.com/users/HenrikBengtsson/repos","events_url":"https://api.github.com/users/HenrikBengtsson/events{/privacy}","received_events_url":"https://api.github.com/users/HenrikBengtsson/received_events","type":"User","site_admin":false},"created_at":"2016-11-07T02:42:15Z","updated_at":"2016-11-07T02:42:15Z","body":"> Is it possible to make three different plans?\r\n> A plan for each bot and then call them one at a time.\r\n\r\nNo.  There should be a solution to your specific problems, but it needs to be found.   Could also be Digital Ocean related, so if you have other machines you can check against at least you could rule out it's not something on your end (e.g. RStudio)."}}
{"actor":{"display_login":"HenrikBengtsson"}}