Выберите данные из базы данных MySQL и поместите в кадр данных R

Я могу получить доступ к базе данных MySQL и сохранить выходные данные в кадре данных R, используя следующий скрипт, где sam_pn = walker

con <- dbConnect(MySQL(),
  user = user,
  password = password,
  host = host,
  dbname = dbname)
df = dbGetQuery(con, "SELECT *
  FROM sam AS s
  JOIN che AS c ON c.che_label = s.sam_label1
  WHERE sam_pn = 'walker'")

Но я хотел бы сохранить « walker » как значение R pn, а затем использовать значение pn в запросе sql, как показано ниже, чтобы я мог изменять значение pn.... но это не работает. Синтаксис не правильный. Обратите внимание, что sam и che являются таблицами в базе данных.

pn = 'walker'
df = dbGetQuery(con, "SELECT *
  FROM sam AS s
  JOIN che AS c ON c.che_label = s.sam_label1
  WHERE sam_pn = 'pn'")

Решение проблемы

pn = 'walker'
df = dbGetQuery(con, "SELECT *
  FROM sam AS s
  JOIN che AS c ON c.che_label = s.sam_label1
  WHERE sam_pn =?",
 params = list(pn))