Packages

library (readr)

Loading the data into the enviroment

urlfile= "https://raw.githubusercontent.com/nytimes/covid-19-data/master/us-counties.csv"

NYTCORONA<-read_csv(url(urlfile))
Parsed with column specification:
cols(
  date = col_date(format = ""),
  county = col_character(),
  state = col_character(),
  fips = col_character(),
  cases = col_double(),
  deaths = col_double()
)

Subsetting to Texas

subset(NYTCORONA, state=='Texas')
Texas<-subset(NYTCORONA, state=='Texas')

Saving the CSV

write.csv(Texas, file = "Texas_Covid.csv")
LS0tDQp0aXRsZTogIlRleGFzIENPVklELTE5Ig0KYXV0aG9yOiAiRGFuaWVsIEpvc2VwaCINCm91dHB1dDoNCiAgaHRtbF9kb2N1bWVudDoNCiAgICBkZl9wcmludDogcGFnZWQNCi0tLQ0KDQoNCiMjIyBQYWNrYWdlcw0KbGlicmFyeSAocmVhZHIpDQoNCg0KIyMjIExvYWRpbmcgdGhlIGRhdGEgaW50byB0aGUgZW52aXJvbWVudA0KYGBge3J9DQp1cmxmaWxlPSAiaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL255dGltZXMvY292aWQtMTktZGF0YS9tYXN0ZXIvdXMtY291bnRpZXMuY3N2Ig0KDQpOWVRDT1JPTkE8LXJlYWRfY3N2KHVybCh1cmxmaWxlKSkNCmBgYA0KDQoNCiMjIyBTdWJzZXR0aW5nIHRvIFRleGFzDQpgYGB7cn0NCg0Kc3Vic2V0KE5ZVENPUk9OQSwgc3RhdGU9PSdUZXhhcycpDQpgYGANCg0KYGBge3J9DQpUZXhhczwtc3Vic2V0KE5ZVENPUk9OQSwgc3RhdGU9PSdUZXhhcycpDQpgYGANCg0KDQojIyMgU2F2aW5nIHRoZSBDU1YNCmBgYHtyfQ0Kd3JpdGUuY3N2KFRleGFzLCBmaWxlID0gIlRleGFzX0NvdmlkLmNzdiIpDQpgYGANCg0KDQoNCg==