Проблемы с установкой github - PullRequest
0 голосов
/ 31 марта 2020

Привет, у меня проблема с пакетом github. Это мой код:

Установка пакетов:

install.packages("magrittr")    
library(magrittr)

install.packages("ggplot2") 
library(ggplot2)

install.packages("cowplot")
library(cowplot)

install.packages("usethis")
library(usethis)

install.packages("devtools")
library(devtools)

При попытке принудительной установки возникает ошибка:

Существует 4 варианта: 1: Все
2: только пакеты CRAN
3: нет
4: tibble (2.1.3 -> 3.0.0) [CRAN]

Когда я нажимаю 1, я получаю это сообщение об ошибке:

Установка 1 пакета: tibble Установка пакета в 'C: / Users / josem / OneDrive / Documents / R / win-library / 3.6' (так как "lib" не указана)

  There is a binary version available but the source version is later:
       binary source needs_compilation
tibble  2.1.3  3.0.0              TRUE

Error: Failed to install 'JLutils' from GitHub:
  (converted from warning) package ‘tibble’ is in use and will not be installed
    devtools::install_github("larmarange/JLutils", force= TRUE)


install.packages("tidyverse")
library(tidyverse)
library(plyr)
library(dplyr)

library(JLutils)
library(tidyverse)

install.packages("rio")
library(rio)

Затем, когда я выбираю вариант 3, я могу загрузить пакет jutils, но не могу создать файл данных dat2. Я не знаю почему. Это действительно расстраивает (вчера это работало отлично) `

dat <- rio::import("https://github.com/jincio/COVID_19_PERU/blob/master/docs/reportes_minsa.xlsx?raw=true")

dat1 <- dat %>%
  mutate(pos_new = Positivos-lag(Positivos,default = 0),
         des_new = Descartados-lag(Descartados,default = 0)) %>%
  group_by(Dia) %>%
  summarise(pos_new = sum(pos_new), des_new = sum(des_new)) %>%
  mutate(cum_pos = cumsum(pos_new),
         tot_pruebas = pos_new+des_new)

Вот ошибка:

(создание dat2): Ошибка в .f (.x [[i]] , ...): объект 'Dia' не найден

dat2 <- dat1 %>%
  mutate(neg_new = tot_pruebas-pos_new) %>%
  dplyr::select(Dia, pos_new, neg_new) %>%
  rename(Positivo = pos_new, Negativo = neg_new) %>%
  gather(res, count, -Dia) %>%
  uncount(count)

Я пробовал все: (

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