P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2024-12-26 06:06:12 +01:00
Code Releases Activity

Update first_isolates.R

Browse Source
This commit is contained in:
MS Berends 2018-03-29 15:15:31 +02:00 committed by GitHub
parent 2647dacc0a
commit b7f29aa748
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
R/first_isolates.R
View File

@ -123,15 +123,15 @@ first_isolate <- function(tbl,
col_species = NA) {
# support tidyverse-like quotation
col_date <- quasiquotate(deparse(substitute(col_date)), col_date)
col_patient_id <- quasiquotate(deparse(substitute(col_patient_id)), col_patient_id)
col_bactid <- quasiquotate(deparse(substitute(col_bactid)), col_bactid)
col_genus <- quasiquotate(deparse(substitute(col_genus)), col_genus)
col_species <- quasiquotate(deparse(substitute(col_species)), col_species)
col_testcode <- quasiquotate(deparse(substitute(col_testcode)), col_testcode)
col_specimen <- quasiquotate(deparse(substitute(col_specimen)), col_specimen)
col_icu <- quasiquotate(deparse(substitute(col_icu)), col_icu)
col_keyantibiotics <- quasiquotate(deparse(substitute(col_keyantibiotics)), col_keyantibiotics)
# col_date <- quasiquotate(deparse(substitute(col_date)), col_date)
# col_patient_id <- quasiquotate(deparse(substitute(col_patient_id)), col_patient_id)
# col_bactid <- quasiquotate(deparse(substitute(col_bactid)), col_bactid)
# col_genus <- quasiquotate(deparse(substitute(col_genus)), col_genus)
# col_species <- quasiquotate(deparse(substitute(col_species)), col_species)
# col_testcode <- quasiquotate(deparse(substitute(col_testcode)), col_testcode)
# col_specimen <- quasiquotate(deparse(substitute(col_specimen)), col_specimen)
# col_icu <- quasiquotate(deparse(substitute(col_icu)), col_icu)
# col_keyantibiotics <- quasiquotate(deparse(substitute(col_keyantibiotics)), col_keyantibiotics)
# check if columns exist
check_columns_existance <- function(column, tblname = tbl) {