bonds and equity with valid_input==FALSE

[cjyetman]

I found a few cases where bond and/or equity holdings have valid_input==FALSE. My expectation, after the change in #17, is that this should not be possible? (based on data created on 2020-04-09 16:00:26 CEST)

library(fs)
library(dplyr)
this_project_dir <- path_expand('~/Dropbox (2° Investing)/PortCheck_v2/10_Projects/PACTA_2020_TESTS_CJ')


file_info(path(this_project_dir, '30_Processed_Inputs', 
               'PACTA_2020_TESTS_CJ_audit_file.rda'))$modification_time
# [1] "2020-04-09 16:00:26 CEST"


path(this_project_dir,
     '30_Processed_Inputs', 'PACTA_2020_TESTS_CJ_audit_file.rda') %>%
  readRDS() %>%
  as_tibble() %>%
  filter(asset_type %in% c('Bonds', 'Equity')) %>% 
  filter(valid_input == FALSE) %>% 
  select(investor_name, portfolio_name, holding_id, isin, value_usd, 
         asset_type, valid_input)

# # A tibble: 9 x 7
#   investor_name    portfolio_name   holding_id isin   value_usd asset_type valid_input
#   <chr>            <chr>            <chr>      <chr>      <dbl> <chr>      <lgl>      
# 1 Platform Sample… Asian Portfolio  305        TW000…       NA  Equity     FALSE      
# 2 Platform Sample… Asian Portfolio  357        XS202…       NA  Bonds      FALSE      
# 3 Platform Sample… Mixed Portfolio  14293      INE00…   498171. Equity     FALSE      
# 4 Platform Sample… Platform Sample… 19304      TW000…       NA  Equity     FALSE      
# 5 Platform Sample… Platform Sample… 19356      XS202…       NA  Bonds      FALSE      
# 6 Platform Sample… Platform Sample… 33292      INE00…   498171. Equity     FALSE      
# 7 Meta Investor    Meta Portfolio   38303      TW000…       NA  Equity     FALSE      
# 8 Meta Investor    Meta Portfolio   38355      XS202…       NA  Bonds      FALSE      
# 9 Meta Investor    Meta Portfolio   52291      INE00…   498171. Equity     FALSE