Struggling turning this into a reprex due to the local csv file it uses. It says the file is not found in the directory. Any help is great thanks!
library(tidyverse)
library(ggplot2)
library(dplyr)
library(RColorBrewer)
library(cronR)
library(miniUI)
library(shiny)
library(shinyFiles)
library(pdftools)
library(tm)
library(readtext)
library(stringr)
library(plyr)
library(lubridate)
library(openxlsx)
library(rio)
library(reprex)
RAO <- readr::read_csv(file = "RateAddOnsExcel.csv")
RAO <- as.data.frame(read.csv(file = "RateAddOnsExcel.csv", header=TRUE, sep = ","))
RAO$X10.01.18 <- NULL
RAO$...4 <- NULL
RAO$...5 <- NULL
RAO$Quarter. <- NULL
names(RAO)[1:13] = c("ProviderName","AIMNumber", "ChainName", "RateEffectiveDate", "ComponentTotal",
"VentAddOn", "QualityAddOn", "SpecialCareUnitAddOn", "AssessmentAddOn",
"SelectedExpenditureAddOn", "RateReduction", "CaseMixRate", "CaseMixAssessment")
RAO[grepl("Myers", RAO$ProviderName),]
RAO[!grepl("Index", RAO$ProviderName),]
View(RAO)
reprex::reprex(outfile = NA)