Телеграмм чат группы rlang_ru страница 2612

parrot.ru

Рейтинг популярных групп и каналов

В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

R (язык программирования)

1278 membersпожаловаться на группу

2020 December 04

MV

Marina Varfolomeeva ... in R (язык программирования)

У меня странный вопрос про передачу аргументов в функции.
Есть некоторая функция, которая принимает аргументы в таком виде:

func(Group_1 = c(1, 3, 5), Group_2 = c(2, 4, 6))

Существует ли способ автоматически сформировать и передать эти аргументы, если есть матрица X со всем необходимым? Названия строк этой матрицы должны стать названиями аргументов, а содержимое - вектором значений. Даже не знаю, что гуглить...

(X <- matrix(1:6, nrow = 2, dimnames = list(c("Group_1", "Group_2"), NULL)))
#         [,1] [,2] [,3]
# Group_1    1    3    5
# Group_2    2    4    6

источник

14:15пожаловаться #1

АК

Артём Клевцов... in R (язык программирования)

Попробуй так:

do.call(f, apply(X, 1, as.list))

источник

14:24пожаловаться #2

АК

Артём Клевцов... in R (язык программирования)

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

источник

14:25пожаловаться #3

АК

Артём Клевцов... in R (язык программирования)

Новые пайпы со шрифтом Fira Code:
https://twitter.com/nanxstats/status/1334741663294611457

Nan Xiao 肖楠

When you use a font with programming ligatures, the future #rstats native pipe looks even better

источник

14:32пожаловаться #4

MV

Marina Varfolomeeva ... in R (язык программирования)

Артём Клевцов

Попробуй так:

do.call(f, apply(X, 1, as.list))

Спасибо! do.call помогло

do.call(func, lapply(apply(X, 1, as.list), unlist))

источник

14:42пожаловаться #5

АК

Артём Клевцов... in R (язык программирования)

Думаю, тут можно подсократить.

источник

14:43пожаловаться #6

АК

Артём Клевцов... in R (язык программирования)

do.call береёт список и матчит его с аргументами функции.

источник

14:45пожаловаться #7

АК

Артём Клевцов... in R (язык программирования)

do.call(func, apply(X, 1, list))

Так ещё можно попробовать.

источник

14:46пожаловаться #8

MV

Marina Varfolomeeva ... in R (язык программирования)

Артём Клевцов

Думаю, тут можно подсократить.

Можно, но не сильно. Там у ... вполне определенный вид

X <- matrix(1:6, nrow = 2, dimnames = list(c("Group_1", "Group_2"), NULL))
# Желаемый результат
# $Group_1
# [1] 1 3 5
# $Group_2
# [1] 2 4 6

lapply(apply(X, 1, as.list), unlist)
as.list(data.frame(t(X)))
plyr::aaply(X, 1, list)

split(X, 1:nrow(X)) # теряет имена

источник

14:52пожаловаться #9

АК

Артём Клевцов... in R (язык программирования)

split(X, 1:nrow(X))

Не теряет, если сплиттить по именованной переменной или фактору.

источник

14:53пожаловаться #10

АК

Артём Клевцов... in R (язык программирования)

Marina Varfolomeeva 🐾

Можно, но не сильно. Там у ... вполне определенный вид

X <- matrix(1:6, nrow = 2, dimnames = list(c("Group_1", "Group_2"), NULL))
# Желаемый результат
# $Group_1
# [1] 1 3 5
# $Group_2
# [1] 2 4 6

lapply(apply(X, 1, as.list), unlist)
as.list(data.frame(t(X)))
plyr::aaply(X, 1, list)

split(X, 1:nrow(X)) # теряет имена

> unlist(apply(X, 1, list), rec = FALSE)
$Group_1
[1] 1 3 5

$Group_2
[1] 2 4 6

источник

14:54пожаловаться #11

MV

Marina Varfolomeeva ... in R (язык программирования)

Артём Клевцов

split(X, 1:nrow(X))

Не теряет, если сплиттить по именованной переменной или фактору.

Буду знать, но здесь это долго, т.к. X - это результат model.matrix()

источник

14:54пожаловаться #12

MV

Marina Varfolomeeva ... in R (язык программирования)

Артём Клевцов

> unlist(apply(X, 1, list), rec = FALSE)
$Group_1
[1] 1 3 5

$Group_2
[1] 2 4 6

Не знала про это. Попробовала split() по фактору, но unlist() быстрее.

library(microbenchmark)
mb <- microbenchmark(
lapply(apply(X, 1, as.list), unlist),
as.list(data.frame(t(X))),
plyr::aaply(X, 1, list),
unlist(apply(X, 1, list), rec = FALSE),
split(X, factor(rownames(X))),
split(X, factor(1:nrow(X)))
)
with(mb, tapply(time, expr, median))
  lapply(apply(X, 1, as.list), unlist)              as.list(data.frame(t(X))) 
                               55071.0                               136612.0 
               plyr::aaply(X, 1, list) unlist(apply(X, 1, list), rec = FALSE) 
                             1795284.5                                40182.5 
         split(X, factor(rownames(X)))            split(X, factor(1:nrow(X))) 
                               79691.5                                51943.0

источник

15:08пожаловаться #13

БА

Байкулов Антон... in R (язык программирования)

Артём Клевцов

Да там гугл уже несколько раз схему авторизации менял, потом выкатил четвёртую версию API.
googleAnalyticsR вполне достойные люди пилили, так что я и подумал, что юзеры переползут и будут довольны.

Мы и перепозли)

источник

15:09пожаловаться #14

БА

Байкулов Антон... in R (язык программирования)

Переслано от Байкулов Антон...

Ребята, подскажите по shiny, пожалуйста. Я чёт туплю.

dataRange <- reactive({
        data %>% filter(between(date, input$date[1], input$date[2]))
    })

Не хочет фунциклировать.

data$date - тип Date.
input$date - тоже Date

источник

20:07пожаловаться #15

IR

Ignatius Reilly in R (язык программирования)

Артём Клевцов

Новые пайпы со шрифтом Fira Code:
https://twitter.com/nanxstats/status/1334741663294611457

Nan Xiao 肖楠

When you use a font with programming ligatures, the future #rstats native pipe looks even better

Прикольная вещь! Только у меня почему-то часть ligatures работает сразу в RStudio (например - > или - >>) , а часть - только если закомментить код (например |> или >=>). Не подскажите, с чем может быть связано? С тем что у меня R пока распознает только первые два как операторы?

источник

20:07пожаловаться #16

БА

Байкулов Антон... in R (язык программирования)

Байкулов Антон

Переслано от Байкулов Антон

Ребята, подскажите по shiny, пожалуйста. Я чёт туплю.

dataRange <- reactive({
        data %>% filter(between(date, input$date[1], input$date[2]))
    })

Не хочет фунциклировать.

data$date - тип Date.
input$date - тоже Date

Вопрос снимается. inputid не тот указал -_-

источник

20:16пожаловаться #17

Ю

Юрий 🐙💻🤖📊📈🚬... in R (язык программирования)

Друзья, а какие shiny приложения вам встречались в последнее время, про которое вы могли бы сказать: круто сделано, классный дизайн, или функционал, или идея и т.п. покидайте, плиз, линки

источник

21:00пожаловаться #18

EP

Ed P in R (язык программирования)

финалисты результатов shiny contest за оба года (2020 и 2019)

источник

21:01пожаловаться #19

EP

Ed P in R (язык программирования)

https://blog.rstudio.com/2020/07/13/winners-of-the-2nd-shiny-contest/

https://blog.rstudio.com/2019/04/05/first-shiny-contest-winners/

Winners of the 2nd Annual Shiny Contest

After evaluating 220 submissions from 183 unique Shiny developers this year, RStudio is proud to finally announce the winners of the 2020 Shiny Contest.

источник

21:01пожаловаться #20