Очистка данных автоматически обновляется с последним набором данных - PullRequest
Новая
       8

Очистка данных автоматически обновляется с последним набором данных

0 голосов
/ 19 марта 2020

Я создаю блестящее приложение для Коронавируса. Мой вопрос: всякий раз, когда я нажимаю RunApp, приложение должно автоматически принимать последний набор данных. Здесь нам нужно будет менять дату перед запуском приложения каждый день. Как это сделать? Как поставить самую последнюю дату и отфильтровать данные.

Это просто сбор, разделение и отображение данных. 

raw_data <- getURL("https://raw.githubusercontent.com/datasets/covid-19/master/time-series-19- 
            covid-combined.csv")
data <- read.csv(text = raw_data, stringsAsFactors = FALSE)
View(data)

Confirmed <- data[which(data$Date=="2020-03-18"),] %>%
  group_by(Country.Region)%>%
  summarise(Confirmed = sum(Confirmed)) %>%
  arrange(-Confirmed)
View(Confirmed)

Deaths <- data[which(data$Date=="2020-03-18"),] %>%
  group_by(Country.Region) %>%
  summarise(Deaths = sum(Deaths)) %>%
  arrange(-Deaths)
View(Deaths)

Recovered <- data[which(data$Date=="2020-03-18"),] %>%
  group_by(Country.Region) %>%
  summarise(Recovered = sum(Recovered)) %>%
  arrange(-Recovered)
View(Recovered)

Total_Confirmed <- sum(Confirmed$Confirmed)
Total_Deaths <- sum(Deaths$Deaths)
Total_Recovered <- sum(Recovered$Recovered)

Заранее спасибо.

Ответы [ 2 ]

0 голосов
/ 27 марта 2020

Используйте функцию max, чтобы выбрать максимальную дату из всех дат. 

Confirmed <- data[which(data$Date==max(data$Date),]
0 голосов
/ 19 марта 2020

Используйте Sys.Date() для печати сегодняшней даты.

Пример: 

> Sys.Date()
[1] "2020-03-19"
...