Всем привет 👋

Чат, подскажите.

Есть датафрейм. Одна из колонок - интервал. Записан как фактор. Пытаюсь перевести это все в секунды.

На входе — 00:19:35.41637

На выходе пытаюсь получить — 1175 секунд.

Пробовал уже anytime и пару других пакетов. Пробовал конвертить сначала в character (очевидно, не сработало). Пробовал конвертнуть в int и numeric.

В любом случае, после применения anytime показывает потом 00:41:23.

Крч, я скоро вскроюсь. Подскажите, что не так

library(lubridate)
period_to_seconds(hms('00:19:35.41637'))
> [1] 1175.416

черт, а про period_to_seconds я и не подумал. Спасибо огромное!

Уважаемые, решил я тут попробовать написать что-то в markdown и сходу напоролся на хардкор. Есть некоторая функция, которая генерит html и открывает его в браузере. Есть ли какой-то способ заставить её выводить этот результат внутри R-markdown файла?

Собсна, результат работы вот этой конструкции хотелось бы выводить внутри документа:

library(tidyverse)
library(tidytext)
library(sentimentr)

res <- jsonlite::fromJSON("http://www.dota2.com/jsfeed/heropickerdata")
res <- data.table::rbindlist(lapply(res, function(v) v[c("name", "bio")]))

res %>% filter(name == "Lich") %>%
 select(bio) %>%
 unlist() %>%
 sentiment_by() %>%
 highlight()

Сейчас это отображается так:

При перезапуске браузера этот файл уже не отображается.

так воткните либо htmlwidget
либо просто html текст в маркдаун

файл не отображается, потому что временный

Чегой-то ты ко мне вдруг на "вы" стал?

опаньки
чот бес попутал, прости

*читает фанфик по евангелиону

вообще, вроде еще была штука типа вставки внешнего хтмл в htmltools

Сейчас буду пробовать, спасибо.

А как связаны R-markdown файлы и htmltools?

Эта highlight() в объект не сохраняет ничего, только тот временный файл генерит и запускает. Непонятно, как оттуда html взять.

смотреть надо, я не работал с ней

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

Перезапустил R, проверил. Всё отработало.

> res <- jsonlite::fromJSON("http://www.dota2.com/jsfeed/heropickerdata")
> res <- data.table::rbindlist(lapply(res, function(v) v[c("name", "bio")]))
>
> res %>% filter(name == "Lich") %>%
+   select(bio) %>%
+   unlist() %>%
+   sentiment_by()
  element_id word_count        sd ave_sentiment
1:          1        186 0.2489597   -0.08088986
> res %>% filter(name == "Lich") %>%
+   select(bio) %>%
+   unlist() %>%
+   sentiment_by() %>%
+   highlight()
Error in [.data.table(y, , list(sentiment = attributes(x)[["averaging.function"]](sentiment),  :
 attempt to apply non-function