Android SearchView SetOnActionExpandListener на Honeycomb 3.2

Вот простая функция. Он генерирует кадр данных и автоматически использует имена векторов как значения для первого столбца.

myfunc <- function(a, b, names = NULL) {
  setNames(data.frame(c(rep(deparse(substitute(a)), length(a)), 
                        rep(deparse(substitute(b)), length(b))), c(a, b)), names)
}

Пример:

x <-c(1,2,3)
y <-c(100,200,300)
x_name <- "cond"
y_name <- "rating"

myfunc(x, y, c(x_name, y_name))

  cond rating
1    x      1
2    x      2
3    x      3
4    y    100
5    y    200
6    y    300
13
задан critical 12 November 2013 в 00:06
поделиться