R - Форматирование строк с использованием DT - PullRequest
Новая
       8

R - Форматирование строк с использованием DT

0 голосов
/ 14 декабря 2018

У меня есть таблица данных, которую я хочу отобразить в приложении Shiny с различным форматированием чисел по строкам.Я нашел предыдущее решение для пользователя NicE, которое работает, когда все столбцы и строки числовые, можно увидеть здесь: R Shiny DataTables: форматировать числа не по столбцам, а по строкам

К сожалению, мой первый столбецне является числовым, и с моей таблицей вышеупомянутое решение дает NaN% значений в первом столбце и не форматирует последующие столбцы.Я уверен, что есть способ решить эту проблему, но я не знаю JavaScript, поэтому я не знаю, как правильно изменить функцию rowCallback.

Вот моя текущая попытка: 

library(DT)
dat <- as.data.frame(matrix(c("# respondents",20,35,18,"involvement rate",.85,.8285,.8889,"target",.80,.85,.9),nrow=3,byrow=T))

datatable(dat,options=list(
  rowCallback=JS("function( row, dat, index ) {
                 $('td:eq(0)', row).html(dat[0] % 1 != 0 | dat[0]==0 ? (dat[0]*100).toFixed(1) +'%':dat[0]);
                 $('td:eq(1)', row).html(dat[1] % 1 != 0 | dat[1]==0 ? (dat[1]*100).toFixed(1) +'%':dat[1]);
                 }
                 ")))

Любая помощь приветствуется!

Редактировать: Я рассчитывал, поскольку единственные ожидаемые строки символов будут в первом столбце, вместо этого я мог бы изменить этот столбец на имена строк: 

dat2 <- subset(dat, select = -1)
rname <- as.vector(dat$V1)
row.names(dat2) <- rname

и затем запустите datatable (...) на dat2 вместо dat.Это приводит к тому же NaN% для имен строк, но теперь первый фактический столбец правильно отформатирован, но не остальные столбцы.

1 Ответ

0 голосов
/ 15 декабря 2018

Начните с j=2, когда вы сделаете td:eq(j).Это отбрасывает 0 -й столбец (столбец имен строк) и 1 -й столбец.Я также добавляю if(index>0), чтобы отбросить первую строку (индексируется 0 в Javascript).Предварительно создайте фрейм данных с числовыми столбцами.

library(DT)
dat <- data.frame(
  V1 = c("# respondents", "involvement rate", "target"),
  V2 = c(20, 0.85, 0.8),
  V3 = c(35, 0.8285, 0.85),
  V4 = c(18, 0.8889, 0.9)
)

datatable(dat,options=list(
  rowCallback=JS(c(
    "function(row, dat, index) {",
    "  if(index > 0){",
    "    for(var j=2; j<dat.length; j++){",
    "      $('td:eq('+j+')', row).",
    "        html((dat[j]*100).toFixed(1) + '%');",
    "    }",
    "  }",
    "}"
  ))
))

enter image description here

...