»»»»»»

Если поиск не работает, действуем по инструкции:

1. Включаем дебаг режим Sys.setenv(RSTUDIO_GREP_DEBUG = 1).
2. Смотрим сообщения в консоли после проведения поиска.
3. Исправляем ошибки. В частности, могут быть ошибки, связанные в недоверенными директориями (специфика гита) или неправильным владельцем.

❍ git можно приструнить командами наподобие git config \-\-global \-\-add safe.directory * или более аккуратными.
❍ На сменном носителе придется поменять владельца директории (take ownership).

В Windows можно пользоваться не только GUI, но и утилитами командной строки для работы с ACL takeown.exe & icacl.exe

Пример использования icacls и takeown для получения доступа ко всем файлам несистемного диска.
takeown /f H: /r /d y
/r — нужен для обработки всех вложенных папок
/d y — положительно отвечает на стандартный запрос да/нет, который появляется в том случае, если у пользователя нет прав для доступа к подпапкам.
icacls H:\* /reset /T

#R

#R

А вот с открытого доступа с Datacamp

Datacamp - Data Analysis in R, the data.table Way

Данные задачки

»»»»»»
Вариант 2

```
tic()

spec_idx <- wcvp[, taxonRank == "species"]

p1 <- wcvp[spec_idx, scientificName] |>
stri_split_fixed(" ", n = 5) |>
stri_list2matrix(byrow = TRUE) |>
cbind(wcvp[spec_idx, taxonRank]) |>
as.data.table() |>
setnames(c("genericName", "specificEpithet",
"verbatimRank", "infraspecificEpithet",
"authorship", "taxonRank"))

p2 <- wcvp[!spec_idx, scientificName] |>
stri_split_fixed(" ", n = 3) |>
stri_list2matrix(byrow = TRUE) |>
cbind(wcvp[!spec_idx, taxonRank]) |>
as.data.table() |>
setnames(c("genericName", "specificEpithet",
"authorship", "taxonRank"))

out_dt <- rbindlist(list(p2, p1), fill = TRUE)

toc()
#> 3.17 sec elapsed
```

#R

»»»»»»

Вариант 1

```

library(data.table)
library(stringi)
library(stringr)
library(tidyr)
library(tictoc)
data.table::setDTthreads(0) # отдаем все ядра в распоряжение data.table

wcvp <- fread("S:/wcvp.zip")

tic()
df <- wcvp |>
separate_wider_delim(
scientificName,
names = c("genericName", "specificEpithet",
"verbatimRank", "infraspecificEpithet"),
delim = " ",
too_few = "debug",
too_many = "debug"
) |>
as.data.table() %>%
.[, authorship := glue::glue_data(
., "{verbatimRank} {infraspecificEpithet}",
" {scientificName_remainder}", .na = "")] %>%
.[taxonRank != "species",
authorship := scientificName_remainder]
toc()
#> 10.31 sec elapsed
```

»»»»»»

И берем диапазон 3/2 <= a < 5/3 где перечислены три корня.

#Wolfram

»»»»»»

Но если времени нет, но надо быстро прикинуть ожидаемый ответ, то используем подобную мантру:

```

Reduce[Sqrt[1 - 2 x] == a - 3 Abs[x], {x}, Reals]

```

»»»»»»

|> Кто хочет побыть аналитиком-разработчиком на R?

Никита Бочалгин ищет себе в команду хорошего человека.
Хорошие вакансии бывают сами по себе не часто.
Хорошие на R — еще реже, следует просто из вложенности матрешек.

Есть шанс себя попробовать в деле, детали в https://t.me/rlang_ru/149008
Не найдется R-щиков с активной позицией — не беда.
Есть альтернативный рабочий путь.

От себя.
В Х5 отличная команда, мы много чего делали вместе.
В т.ч. плечом к плечу с Никитой.

Задачки сами по себе интересны поскольку выступают как площадка для приземления артефактов покинувших российский рынок Табло и Клик.

Построен весь классический для энтерпрайза стек. Двух/Трехзвенка, шайни приложения для массы пользователей, интеграции ко всему и вся, SQL во всяких диалектах, поставленный собственный DevOps & CI/CD процесс, масса интересной бизнес-аналитики (задачи надо не только делать, но и разбираться с бизнес-постановкой). Есть множество оптимизационных моментов.
Собственные платформы (CH, постгре, shinyproxy, докеризация) с самостоятельным управлением.

MLops нет, но фрагменты ML, если считаете необходимым для решения задачи, затягивать можно и нужно.

Кто решится — жалеть вряд ли будет.
P.S. Чувство юмора сильно приветствуется.
И не надо бояться пробовать.
С базисом, головой, руками и неунывающих можно дотянуть.

Но вот за нежелание писать чистый код будет сильно больно, такое не позволяется категорически.

Telegram

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

#работа Всем привет! ) В моей команде открылась вакансия аналитика на R, поэтому я ищу коллегу на позицию джуна. Мы разрабатываем инструмент внутренней отчётности, сиречь, набор дашбордов. По стеку ждём: - shiny и около - sql: всему, что выходит за границы…

»»»»»»

Прекрасные отправные точки для настройки тем и шрифтов в частности:
- Slidecraft 101: Colors and Fonts
- Slidecraft 101: Code and Output

Для настройки использования локальных шрифтов есть и другие пути:
- https://github.com/quarto-dev/quarto-cli/discussions/3064
- https://github.com/gadenbuie/reveal-fonts-reprex

Также есть удобный пакет-хелпер gfonts по использованию шрифтов google.

Все замечательно работает, но, увы, только на экране. При попытке подготовить к pdf выводу FiraCode как ветром сдувает. Это можно поправить путем изучения скомпилированного кода презентации и незначительной корректировки css файлов.

```
/ woff2 -- Chrome 26+, Opera 23+, Firefox 39+ /
/ woff -- Chrome 6+, Firefox 3.6+, IE 9+, Safari 5.1+ /

@font-face {
font-family: 'FiraCode';
font-style: normal;
font-weight: 400;
src: local(''),
url('./fonts/FiraCode-Regular.woff2') format('woff2'),
url('./fonts/FiraCode-Regular.woff') format('woff');
}

.output {
color: blue;
max-height: 900px; / can change this /
max-width: 1200px; / doesn't seem to have any effect /
overflow: auto;
background: #f0f0f5;
}

/ фиксим путем изучения специфики рендеринга страниц в режиме print /
.reveal div.sourceCode pre code {
font-family: 'FiraCode' !important;
}

html.print-pdf .reveal pre code {
font-family: 'FiraCode' !important;
}

```

И шапка документа

```
format:
revealjs:
theme: [default, custom.scss]
css: fira.css

```

Решение не совсем полное, поскольку не поддерживает .r\-fit\-text, но и с этим можно разобраться, было бы желание и потребность.

#R

Emilhvitfeldt

Slidecraft 101: Colors and Fonts

All about colors and fonts in slidecrafting