library(tidyverse)
library(ggplot2)
library(dplyr)
library(RColorBrewer)
library(cronR)
library(miniUI)
library(shiny)
library(shinyFiles)
library(pdftools)
library(tm)
#> Loading required package: NLP
#>
#> Attaching package: 'NLP'
#> The following object is masked from 'package:ggplot2':
#>
#> annotate
library(xlsx)
#> Warning in system("/usr/libexec/java_home", intern = TRUE): running command
#> '/usr/libexec/java_home' had status 1
#> Error: package or namespace load failed for 'xlsx':
#> .onLoad failed in loadNamespace() for 'rJava', details:
#> call: dyn.load(file, DLLpath = DLLpath, ...)
#> error: unable to load shared object '/Library/Frameworks/R.framework/Versions/3.5/Resources/library/rJava/libs/rJava.so':
#> dlopen(/Library/Frameworks/R.framework/Versions/3.5/Resources/library/rJava/libs/rJava.so, 6): Library not loaded: /Library/Java/JavaVirtualMachines/jdk-11.0.1.jdk/Contents/Home/lib/server/libjvm.dylib
#> Referenced from: /Library/Frameworks/R.framework/Versions/3.5/Resources/library/rJava/libs/rJava.so
#> Reason: image not found
library(readtext)
library(stringr)
library(plyr)
#> -------------------------------------------------------------------------
#> You have loaded plyr after dplyr - this is likely to cause problems.
#> If you need functions from both plyr and dplyr, please load plyr first, then dplyr:
#> library(plyr); library(dplyr)
#> -------------------------------------------------------------------------
#>
#> Attaching package: 'plyr'
#> The following objects are masked from 'package:dplyr':
#>
#> arrange, count, desc, failwith, id, mutate, rename, summarise,
#> summarize
#> The following object is masked from 'package:purrr':
#>
#> compact
library(lubridate)
#>
#> Attaching package: 'lubridate'
#> The following object is masked from 'package:plyr':
#>
#> here
#> The following object is masked from 'package:base':
#>
#> date
library(openxlsx)
library(rio)
library(data.table)
#>
#> Attaching package: 'data.table'
#> The following objects are masked from 'package:lubridate':
#>
#> hour, isoweek, mday, minute, month, quarter, second, wday,
#> week, yday, year
#> The following objects are masked from 'package:dplyr':
#>
#> between, first, last
#> The following object is masked from 'package:purrr':
#>
#> transpose
RAO <- read.csv(file = "RateAddOnsExcel.csv", header = TRUE, sep = ",", na.strings = c("", "NA"))
#> Warning in file(file, "rt"): cannot open file 'RateAddOnsExcel.csv': No
#> such file or directory
#> Error in file(file, "rt"): cannot open the connection
names(RAO)[1] = c("ProviderName")
#> Error in names(RAO)[1] = c("ProviderName"): object 'RAO' not found
names(RAO)[6:17] = c("AIMNumber", "ChainName", "RateEffectiveDate", "ComponentTotal",
"VentAddOn", "QualityAddOn", "SpecialCareUnitAddOn", "AssessmentAddOn",
"SelectedExpenditureAddOn", "RateReduction", "CaseMixRate", "CaseMixAssessment")
#> Error in names(RAO)[6:17] = c("AIMNumber", "ChainName", "RateEffectiveDate", : object 'RAO' not found
RAO$X10.01.18 <- NULL
#> Error in RAO$X10.01.18 <- NULL: object 'RAO' not found
RAO$...4 <- NULL
#> Error in RAO$...4 <- NULL: object 'RAO' not found
RAO$...5 <- NULL
#> Error in RAO$...5 <- NULL: object 'RAO' not found
RAO$Quarter. <- NULL
#> Error in RAO$Quarter. <- NULL: object 'RAO' not found
View(RAO)
#> Error in as.data.frame(x): object 'RAO' not found
reprex::reprex()
#> No input provided and clipboard is not available.
#> Rendering reprex...
Created on 2019-06-18 by the reprex package (v0.2.1)