如何使用read.csv2.sql在不解压的情况下读取zip文件？

library(readr)
library(DBI)
library(RMySQL)

read.csv2.sql <- function(file_path, csv_file_name, table_name, db_connection) {
  # Load zip file into memory
  zip_file <- unz(file_path, csv_file_name)
  
  # Read csv file from zip
  csv_data <- read_csv(zip_file)
  
  # Create SQL table and import csv data
  dbWriteTable(db_connection, table_name, csv_data)
  
  # Close zip file
  close(zip_file)
}

# Example usage
file_path <- "path/to/your/zip/file.zip"
csv_file_name <- "data.csv"
table_name <- "my_table"
db_connection <- dbConnect(RMySQL::MySQL(), dbname = "your_database", host = "your_host", username = "your_username", password = "your_password")

read.csv2.sql(file_path, csv_file_name, table_name, db_connection)