Использование purrr :: map для получения нескольких столбцов в выводе

Question

Использование purrr :: map для получения нескольких столбцов в выводе

JS Fiddle: http://jsfiddle.net/eyedean/1bw357kw/

popFileSelector = function() {
    var el = document.getElementById("fileElem");
    if (el) {
        el.click();  
    }
};

window.popRightAway = function() {
    document.getElementById('log').innerHTML += 'I am right away!
';
    popFileSelector();
};

window.popWithDelay = function() {
    document.getElementById('log').innerHTML += 'I am gonna delay!
';
    window.setTimeout(function() {
        document.getElementById('log').innerHTML += 'I was delayed!
';
        popFileSelector();
    }, 1000);
};


  
      
  
  Pop Now
    

  Pop With 1 Second Delay
    Log:

2

r purrr

задан umair durrani 19 March 2019 в 17:21

1 ответ

Другие вопросы по тегам:

r purrr

Похожие вопросы:

score 0 · Answer 1

Один из способов вернуться домой - воспользоваться гибкостью анонимной функции и использовать ее для возврата объекта, который уже имеет спецификацию. Я использовал комбинацию group_by() и transmute().

# this is setup for transmute() so we keep 'STREET' around
hwys <- group_by(hwys, STREET) 

segments_nested %>%
  mutate(results = purrr::map(
    data, ~ transmute(hwys, diztances = geosphere::distVincentyEllipsoid(c(longitude, latitude),
                                             c(.$longitude, .$latitude))))) %>% 
  unnest(results)

И бинго «УЛИЦА» снова в меню, мальчики !

  mto_collision_ref_number STREET         diztances
                     <int> <chr>              <dbl>
1                  1549630 HIGHWAY3          89840.
2                  1549630 ADELAIDEAVEE     111101.
3                  1549630 HOWARDAVE        345569.
4                  1549630 HIGHWAY12        210099.
5                  1549630 CORONATIONBLVD   126702.

В будущем постарайтесь поделиться своими данными в более удобном для воспроизведения формате, я предпочитаю read.table(text = ), но dput() также хорошо, как предложено выше. Мне пришлось скопировать, вставить и манипулировать вашим выходным блоком, чтобы получить его в R:

segments <- read.table(
  text = "lhrs mto_collision_ref_number latitude longitude highway_number
  1 10004 1549630 42.9 -78.9 1",
  header = T,
  stringsAsFactors = F
)
hwys <- read.table(
  text = "  STREET longitude latitude
  1 HIGHWAY3 -80.0 42.9
  2 ADELAIDEAVEE  -78.9 43.9
  3 HOWARDAVE -83.0 42.2
  4 HIGHWAY12 -79.7 44.7
  5 CORONATIONBLVD -80.3 43.4",
  header = T, 
  stringsAsFactors = F
)