Obtain UK numbers

"Julia version $VERSION"

using CSV,DataFrames,Dates,HTTP

import Pkg;

Pkg.add("Query");

using Query

function CSV_read_website(url::String,args...;kwargs...)

  response = HTTP.get(url)

  response_body = String(response.body)

  io_buff=IOBuffer(response_body)

  return CSV.read(io_buff,args...;kwargs...)

end

data = CSV_read_website("https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_confirmed_global.csv")

# Rename the first column of data to "state"

# Rename the second column of data to "country"

rename!(data,1 => "state",2 => "country")

# If the value in the state column is empty then set it to the string "empty"

data.state = coalesce.(data.state, "empty")

function obtain_dailycases(country::String)

    Nation_row =

        data |> @filter(  _.state == "empty" &&

                          _.country == country

                ) |> DataFrame

    Nation_cases = collect(Nation_row[1, 5:end])

    Nation_newcases = Float64.(similar(Nation_cases))

    Nation_newcases[1] = 0.0

    for k = 2:length(Nation_cases)

        Nation_newcases[k] = Nation_cases[k] - Nation_cases[k-1]

    end

    date_strings = String.(names(data))[5:end]

    format = Dates.DateFormat("m/d/Y")

    Nation_dates = parse.(Date, date_strings, format) .+ Dates.Year(2000)

    return (Nation_dates, Nation_newcases)

end

# Look for the whole Country only data

# This is where the first column has the value "empty"

mylist = findall( x -> x=="empty", data[:,1])

# Look for countried with the word "United" in it

for n in mylist

    if occursin("United", data[n, 2])

        println(data[n, 2])

    end

end

println()

# Get the array of dates and the array of Daily Cases

(UK_dates,UK_cases) = obtain_dailycases("United Kingdom")

# Find the start date of 1st August 2020

startloc = first(  findall(x->x==Date(2020,8,1),UK_dates)  )

result_dates = UK_dates[startloc:end]

result_cases = UK_cases[startloc:end]

for n = 1:length(result_dates)

    value_integer = Int64(floor(result_cases[n]))

    println(result_dates[n],",",value_integer)

end