Update Sample Type
update_sample_type.Rdupdate_sample_type() updates an existing sample type in the sample type lookup table
Arguments
- con
A DBI connection object obtained from DBI::dbConnect()
- sample_type_id
A numeric ID for the targeted sample type
get_sample_types- sample_type
A valid sample type dataframe containing the following:
code Short code representing sample type name
sample_type_name Sample type full name
description Brief description of the sample type
See also
Other sample type functions:
add_sample_type(),
delete_sample_type(),
get_sample_types(),
update_sample_type_status()
Examples
# example database connection
cfg <- config::get()
con <- DBI::dbConnect(RPostgres::Postgres(),
dbname = cfg$dbname,
host = cfg$host,
port = cfg$port,
user = cfg$username,
password = cfg$password)
#> Error: connection to server at "localhost" (::1), port 5432 failed: Connection refused (0x0000274D/10061)
#> Is the server running on that host and accepting TCP/IP connections?
#> connection to server at "localhost" (127.0.0.1), port 5432 failed: Connection refused (0x0000274D/10061)
#> Is the server running on that host and accepting TCP/IP connections?
all_sample_types <- get_sample_types(con)
#> Error in h(simpleError(msg, call)): error in evaluating the argument 'dbObj' in selecting a method for function 'dbIsValid': object 'con' not found
View(all_sample_types) # to view the ID of the sample type needing updates
#> Error in eval(expr, envir, enclos): object 'all_sample_types' not found
updated_sample_type <- all_sample_types[1, 2:4]
#> Error in eval(expr, envir, enclos): object 'all_sample_types' not found
updated_sample_type$sample_type_name <- "New Name Run"
#> Error: object 'updated_sample_type' not found
update_sample_type(con, 1, updated_sample_type)
#> Error in h(simpleError(msg, call)): error in evaluating the argument 'dbObj' in selecting a method for function 'dbIsValid': object 'con' not found