Отдельное 1000 в текстовом поле ActiveX

Это случается со мной чаще, чем я должен признать. dplyr сталкиваются с MASS::select, plyr::summarise и stats::filter, среди прочего, особенно при загрузке пакетов, загружающих одну из этих библиотек через библиотеку (они не должны, но некоторые до сих пор) или когда вы загружаете dplyr в свой .Rprofile (не надо!). И это может привести к довольно неясным проблемам, а не всегда к сообщению об ошибке, особенно к конфликтам с plyr.

Я только недавно узнал о функции conflicts(). Это полезно, но конфликты «over-reports», когда два пакета имеют одинаковые функции, например. tidyr :: %>% и dplyr :: %>%.

Итак, я написал функцию , чтобы сказать мне, схожу ли я с ума или есть конфликт, вызывающий текущая ошибка. Он не только проверяет наличие конфликтов, но проверяет, является ли определенный желаемый пакет «сверху» и действительно ли тела функции отличаются.

Он делает это для dplyr по умолчанию, но вы можете указать другой пакет используя параметр want_package. Например, я часто сбиваюсь с помощью recode и alpha, которые повторно используются во многих пакетах.

Использование просто: amigoingmad().

По умолчанию это также автоматически «фиксирует» вещи, если dplyr не «сверху», используя следующие команды:

detach("package:dplyr", character.only = TRUE)
library("dplyr", character.only = TRUE)

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

На данный момент это решение не вызвало у меня никаких проблем. Конечно, я бы не стал использовать это в производственном коде, но когда вы отлаживаете файл .Rmd и, возможно, случайно испортили заказ на загрузку, это быстрый способ узнать.

Если вы хотите это в пакете:

devtools::install_github("rubenarslan/formr")

0
задан user7202022 5 March 2019 в 10:38
поделиться

2 ответа

Я понял это.

Поэтому щелкните правой кнопкой мыши на текстовом поле ActiveX -> Просмотреть код.

Private Sub TextBox12_Change()
    TextBox12.Value = Format(TextBox12.Value, "###,##")
End Sub
0
ответ дан user7202022 5 March 2019 в 10:38
поделиться

Просто добавьте событие изменения в TextBox с вашим форматом

Private Sub TextBox1_Change()
    Me.TextBox1.Text = Format(Me.TextBox1.Text, "#" & Application.ThousandsSeparator & "###")
End Sub
0
ответ дан Tom 5 March 2019 в 10:38
поделиться
Другие вопросы по тегам:

Похожие вопросы: