Error in `readChar(con, 5L, useBytes = TRUE)`: cannot open the connection

test_that("makeCalls.PC1ihc works correctly with test data", {
data_path <- system.file("extdata", "Sample_IHC_PAM-Mat.Rdat", package = "pcapam50")
load(data_path) # Loads Test.ihc and Test.matrix
Test.ihc$ER_status[Test.ihc$IHC %in% c("LA", "LB1", "LB2")] <- "pos"
Test.ihc$ER_status[Test.ihc$IHC %in% c("TN", "Her2+")] <- "neg"
Test.ihc <- Test.ihc[order(Test.ihc$ER_status, decreasing = TRUE),]
df.cln <- data.frame(PatientID = Test.ihc$PatientID, IHC = Test.ihc$IHC, stringsAsFactors = FALSE)
result <- makeCalls.PC1ihc(df.cln=df.cln, seed = 118, mat = Test.matrix, inputDir=inputDir)

"makeCalls.PC1ihc works correctly with test data"

makeCalls.PC1ihc works correctly with test data