inst/test-data/project-longitudinal/expected/filter-numeric.R

In OuhscBbmc/REDCapR: Interaction Between R and REDCap

structure(list(study_id = c(100, 220), redcap_event_name = c("enrollment_arm_1", 
"enrollment_arm_1"), date_enrolled = structure(c(16527, 16527
), class = "Date"), patient_document = c(NA, NA), first_name = c("Zharko", 
"Milivoj"), last_name = c("Lenox", "Marcus"), telephone_1 = c("(415) 555-1212", 
"(432) 903-6676"), email = c("zlehnox@gmail.com", "Milivoj.Marcus@dsds.cmo"
), dob = structure(c(5013, 15017), class = "Date"), age = c(31, 
4), ethnicity = c(0, 2), race = c(4, 1), sex = c(1, 0), given_birth = c(NA, 
0), num_children = c(NA, NA), gym___0 = c(1, 1), gym___1 = c(0, 
1), gym___2 = c(0, 0), gym___3 = c(0, 0), gym___4 = c(0, 0), 
    aerobics___0 = c(0, 0), aerobics___1 = c(1, 0), aerobics___2 = c(1, 
    1), aerobics___3 = c(0, 0), aerobics___4 = c(0, 0), eat___0 = c(0, 
    0), eat___1 = c(0, 0), eat___2 = c(0, 1), eat___3 = c(1, 
    0), eat___4 = c(0, 0), drink___0 = c(0, 0), drink___1 = c(0, 
    0), drink___2 = c(0, 0), drink___3 = c(0, 1), drink___4 = c(1, 
    1), specify_mood = c(71, 29), meds___1 = c(0, 1), meds___2 = c(1, 
    1), meds___3 = c(0, 0), meds___4 = c(0, 0), meds___5 = c(0, 
    0), height = c(160, 156), weight = c(80, 66), bmi = c(31.3, 
    27.1), comments = c("Is he staying arrival address earnest. To preference considered it themselves inquietude collecting estimating. View park for why gay knew face. Next than near to four so hand. Times so do he downs me would. Witty abode party her found quiet law. They door four bed fail now have. \n\nOn recommend tolerably my belonging or am. Mutual has cannot beauty indeed now sussex merely you. It possible no husbands jennings ye offended packages pleasant he. Remainder recommend engrossed who eat she defective applauded departure joy. Get dissimilar not introduced day her apartments. Fully as taste he mr do smile abode every. Luckily offered article led lasting country minutes nor old. Happen people things oh is oppose up parish effect. Law handsome old outweigh humoured far appetite. \n\nConcerns greatest \n\nhttp://randomtextgenerator.com/", 
    "Dissuade ecstatic and properly saw entirely sir why laughter endeavor. In on my jointure horrible margaret suitable he followed speedily. Indeed vanity excuse or mr lovers of on. By offer scale an stuff. Blush be sorry no sight. Sang lose of hour then he left find. \n\nDenote simple fat denied add worthy little use. As some he so high down am week. Conduct esteems by cottage to pasture we winding. On assistance he cultivated considered frequently. Person how having tended direct own day man. Saw sufficient indulgence one own you inquietude sympathize."
    ), demographics_complete = c(2, 2), ec_phone = c(NA, NA), 
    ec_confirmed = c(NA, NA), next_of_kin_contact_name = c(NA, 
    NA), next_of_kin_contact_address = c(NA, NA), next_of_kin_contact_phone = c(NA, 
    NA), next_of_kin_confirmed = c(NA, NA), contact_info_complete = c(2, 
    2), height2 = c(200, 332), weight2 = c(234, 223), bmi2 = c(58.5, 
    20.2), prealb_b = c(43, 544), creat_b = c(355, 32.4), npcr_b = c(23, 
    3.46), chol_b = c(3.5, 44.8), transferrin_b = c(3.66, 33.7
    ), baseline_data_complete = c(2, 1), vld1 = c(NA, NA), vld2 = c(NA, 
    NA), vld3 = c(NA, NA), vld4 = c(NA, NA), vld5 = c(NA, NA), 
    visit_lab_data_complete = c(NA, NA), pmq1 = c(NA, NA), pmq2 = c(NA, 
    NA), pmq3 = c(NA, NA), pmq4 = c(NA, NA), patient_morale_questionnaire_complete = c(NA, 
    NA), vbw1 = c(NA, NA), vbw2 = c(NA, NA), vbw3 = c(NA, NA), 
    vbw4 = c(NA, NA), vbw5 = c(NA, NA), vbw6 = c(NA, NA), vbw7 = c(NA, 
    NA), vbw8 = c(NA, NA), vbw9 = c(NA, NA), visit_blood_workup_complete = c(NA, 
    NA), vob1 = c(NA, NA), vob2 = c(NA, NA), vob3 = c(NA, NA), 
    vob4 = c(NA, NA), vob5 = c(NA, NA), vob6 = c(NA, NA), vob7 = c(NA, 
    NA), vob8 = c(NA, NA), vob9 = c(NA, NA), vob10 = c(NA, NA
    ), vob11 = c(NA, NA), vob12 = c(NA, NA), vob13 = c(NA, NA
    ), vob14 = c(NA, NA), visit_observed_behavior_complete = c(NA, 
    NA), study_comments = c(NA, NA), complete_study = c(NA, NA
    ), withdraw_date = c(NA, NA), date_visit_4 = c(NA, NA), alb_4 = c(NA, 
    NA), prealb_4 = c(NA, NA), creat_4 = c(NA, NA), discharge_date_4 = c(NA, 
    NA), discharge_summary_4 = c(NA, NA), npcr_4 = c(NA, NA), 
    chol_4 = c(NA, NA), withdraw_reason = c(NA, NA), completion_data_complete = c(NA, 
    NA), cpq1 = c(NA, NA), cpq2 = c(NA, NA), cpq3 = c(NA, NA), 
    cpq4 = c(NA, NA), cpq5 = c(NA, NA), cpq6 = c(NA, NA), cpq7 = c(NA, 
    NA), cpq8 = c(NA, NA), cpq9 = c(NA, NA), cpq10 = c(NA, NA
    ), cpq11 = c(NA, NA), cpq12 = c(NA, NA), cpq13 = c(NA, NA
    ), completion_project_questionnaire_complete = c(NA, NA)), row.names = c(NA, 
-2L), class = "data.frame")