Примените функцию для каждого случая тибла - PullRequest
Новая
       19

Примените функцию для каждого случая тибла

0 голосов
/ 23 апреля 2020

Мое второе участие здесь, в Stackoverflow.

У меня есть функция bw_test с несколькими аргументами, подобными этой: 

  bw_test <- function(localip, remoteip, localspeed, remotespeed , duracion =30,direction ="both"){

comando <- str_c("ssh usuario@", localip ," /tool bandwidth-test direction=", direction," remote-tx-speed=",remotespeed,"M local-tx-speed=",localspeed,"M protocol=udp user=usuario password=mipasso  duration=",duracion," ",remoteip)

  resultado <- system(comando,intern = T,ignore.stderr  = T)

# resultado pull from a ssh server a vector like this:
# head(resultado)
#[1] "                status: connecting\r" "            tx-current: #0bps\r"       "  tx-10-second-average: 0bps\r"      
#[4] "      tx-total-average: 0bps\r"       "            rx-current: #0bps\r"       "  rx-10-second-average: 0bps\r"       

  resultado %<>%
    replace("\r","") %>%
    tail(17) %>% 
    trimws("both") %>%
    as_tibble %>%
    mutate(local=localip, remote=remoteip) %>%
    separate(value,sep=":", into=c("parametro","valor")) %>%
    head(15) 


  resultado$valor %<>%
    trimws() %>%
    str_replace("Mbps","") %>% str_replace("%","") %>% str_replace("s","")

  resultado  %<>% 
  spread(parametro,valor)  
  resultado %<>%
    mutate(`tx-percentaje`=as.numeric(resultado$`tx-total-average`)/localspeed) %>%
    mutate(`rx-percentaje`=as.numeric(resultado$`rx-total-average`)/remotespeed) 

  return(resultado)


    }

эта функция возвращает тиббл, подобный этому: 

A tibble: 1 x 19
  local remote `connection-cou… direction duration `local-cpu-load` `lost-packets` `random-data` `remote-cpu-loa…
  <chr> <chr>  <chr>            <chr>     <chr>    <chr>            <chr>          <chr>         <chr>           
1 192.… 192.1… 1                both      4        13               0              no            12              
# … with 10 more variables: `rx-10-second-average` <chr>, `rx-current` <chr>, `rx-size` <chr>,
#   `rx-total-average` <chr>, `tx-10-second-average` <chr>, `tx-current` <chr>, `tx-size` <chr>,
#   `tx-total-average` <chr>, `tx-percentaje` <dbl>, `rx-percentaje` <dbl>

Итак, когда я вызываю функцию внутри rbind, получаю результат каждого запуска по tibble: 

rbind(bw_test("192.168.105.10" ,"192.168.105.18", 75,125),
      bw_test("192.168.133.11","192.168.133.9", 5 ,50),
      bw_test("192.168.254.251","192.168.254.250",  25,150))

Мои результаты приведены для примера: 

# A tibble: 3 x 19
  local remote `connection-cou… direction duration `local-cpu-load` `lost-packets` `random-data` `remote-cpu-loa…
  <chr> <chr>  <chr>            <chr>     <chr>    <chr>            <chr>          <chr>         <chr>           
1 192.… 192.1… 20               both      28       63               232            no            48              
2 192.… 192.1… 20               both      29       4                0              no            20              
3 192.… 192.1… 20               both      29       15               0              no            22              
# … with 10 more variables: `rx-10-second-average` <chr>, `rx-current` <chr>, `rx-size` <chr>,
#   `rx-total-average` <chr>, `tx-10-second-average` <chr>, `tx-current` <chr>, `tx-size` <chr>,
#   `tx-total-average` <chr>, `tx-percentaje` <dbl>, `rx-percentaje` <dbl>

Моя проблема заключается в том, чтобы применить эту функцию к таким случаям, как это. 

aps <- tribble(
  ~name, ~ip, ~remoteip , ~bw_test, ~localspeed,~remotespeed,
  "backbone_border_core","192.168.253.1", "192.168.253.3", 1,200,200,
  "backbone_2_site2","192.168.254.251", "192.168.254.250", 1, 25,150
}

Я пытался использовать карту, но я получил: 

map(c(aps$ip,aps$remoteip,aps$localspeed,aps$remotespeed), bw_test)

el argumento "remotespeed" está ausente, sin valor por omisión

Я считаю, что причина c (aps $ ip, aps $ remoteip, aps $ localspeed, aps $ remotespeed) кормит сначала все случаи aps $ ip, затем все aps $ remoteip и т. Д.

Я использую правильный стратег ie? это карта подходящим способом

Что я делаю не так?

¿Как я могу применить функцию к каждой строке, чтобы получить запрошенный тибл?

Я буду признателен вам любезно помогите.

Привет.

1 Ответ

0 голосов
/ 23 апреля 2020

Попробуйте использовать pmap_df. 

output <- purrr::pmap_df(list(aps$ip, aps$remoteip, aps$localspeed, 
                              aps$remotespeed), bw_test)
...