Получение этого сообщения - Предупреждение: Ошибка в as.tbl: не удалось найти функцию "as.tbl" при публикации моего блестящего приложения - PullRequest
0 голосов
/ 23 октября 2018

Когда я запускаю блестящее приложение локально, оно работает нормально, но когда я вижу это в журнале:

2018-10-23T00:54:15.496879+00:00 shinyapps[529396]: Loading required package: data.table
2018-10-23T00:54:21.417674+00:00 shinyapps[529396]: Warning: Error in as.tbl: could not find function "as.tbl"

Это код

combined <-
  merge(loans, banks[, c("Year", "Agency", "ID", "Name")],
        by = c("Year", "Agency", "ID")) %>%
  mutate(Loan_Bucket = cut(Loan_Amount_000,       #appending a Loan_Bucket column to the dataframe
                           breaks = c(0, 50, 350, 2000, 5000, 15000, 40000, 100000),
                           labels = 1:7),
         right = FALSE
  ) %>% as.tbl                                    #tbl prevents printing the whole dataframe by mistake

Я загрузил dplyr, используя require (dplyr), но все же это происходит.Есть идеи?

1 Ответ

0 голосов
/ 23 октября 2018

В вашем server.r у вас есть

options(warn = -1)
packages = c("scales", "readr", "plotly", "editrules", "stringr", "jsonlite",
         "devtools", "tidyr", "data.table", "rjson", "scales", "dplyr", 
"gridExtra", "shiny", "ggplot2")
x = sapply(packages, function(x) if (!require(x, character.only = T)) 
install.packages(x))
rm(x, packages)

для установки необходимых пакетов, но после их установки эти пакеты не загружаются.

попробуйте это:

x = sapply(packages, function(x) {
         if (!require(x, character.only = T)) install.packages(x)
         require(x)
})

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

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...