\name{reft_match_smiles}
\alias{reft_match_smiles}
\title{Match SMILES from PubChem}
\usage{
reft_match_smiles(
  data,
  name_col = "Name",
  other_col = "Other_name(Kegg_name)",
  hmdb_col = "HMDB_ID",
  kegg_col = "Kegg_ID"
)
}
\arguments{
  \item{data}{A data frame containing query columns.}
  \item{name_col}{Compound name column.}
  \item{other_col}{Alternative name column.}
  \item{hmdb_col}{HMDB ID column.}
  \item{kegg_col}{KEGG ID column.}
}
\value{
A data frame with matching log and SMILES.
}
\description{
Batch match SMILES using Name, Other Name, KEGG ID, and HMDB ID in order.
}
\examples{
\donttest{
dat <- data.frame(
  Name = "Glutarate",
  `Other_name(Kegg_name)` = NA,
  HMDB_ID = NA,
  Kegg_ID = NA,
  check.names = FALSE
)
res <- try(reft_match_smiles(dat), silent = TRUE)
if (!inherits(res, "try-error")) head(res)
}
}
