Pass the dots from pin_write() through to s3_upload_file()

[juliasilge]

Closes #628

library(pins)
b <- board_s3(
  "pins-test-hadley", 
  region = "us-east-2",
  access_key = Sys.getenv("PINS_AWS_ACCESS_KEY"),
  secret_access_key = Sys.getenv("PINS_AWS_SECRET_ACCESS_KEY")
)
b %>% pin_write(mtcars, Tagging = "key1=value1&key2=value2")
#> Using `name = 'mtcars'`
#> Guessing `type = 'rds'`
#> Creating new version '20220831T215459Z-66143'
#> Writing to pin 'mtcars'

^{Created on 2022-08-31 with reprex v2.0.2}

[juliasilge]

Also closes #625

[juliasilge]

The function signature here needed to be made the same as other pin_store methods.

[machow]

This behavior LGTM! I didn't try it locally (but am happy to if useful!)

[github-actions]

This pull request has been automatically locked. If you believe you have found a related problem, please file a new issue (with a reprex: https://reprex.tidyverse.org) and link to this issue.