R RestRserve 添加Etag到静态路径

Question

假设我有一个像这样使用 RestRserve 的 REST API，有没有办法添加 Etag 以在云服务上启用缓存？

writeLines("Hello World", "myfile.txt")

app <- Application$new(content_type = "application/json")
app$add_static("/", ".")

backend <- BackendRserve$new()
# backend$start(app, http_port = 8080)

req <- Request$new(path = "/myfile.txt", method = "GET")
app$process_request(req)$headers
#> $Server
#> [1] "RestRserve/0.4.1001"

正如我们所见，没有Etag。

使用 Go fiber 的示例

使用GO光纤，我会这样使用：

package main

import (
    "flag"
    "log"

    "github.com/gofiber/fiber/v2"
    "github.com/gofiber/fiber/v2/middleware/etag"
)

var (
    port = flag.String("port", ":3000", "Port to listen on")
)

func main() {
    app := fiber.New()
    app.Use(etag.New())
    app.Static("/", ".")
    log.Fatal(app.Listen(*port))
}

然后查询 localhost:3000/myfile.txt 我会看到 headers 这样的

HTTP/1.1 200 OK
Date: Fri, 18 Mar 2022 13:13:44 GMT
Content-Type: text/plain; charset=utf-8
Content-Length: 12
Last-Modified: Fri, 21 Jan 2022 16:24:47 GMT
Etag: "12-823400506"
Connection: close

Hello World

有没有办法使用 RestRserve 将 Etag headers 添加到静态文件？

Answer 1

从 RestRserve 版本 1.1.1（在 CRAN 上）开始，有一个 ETag 中间件 class。像这样使用它：

# ... code like before
etag <- ETagMiddleware$new()
app$append_middleware(etag)
# ...

另见 https://restrserve.org/reference/ETagMiddleware.html

R RestRserve 添加Etag到静态路径

R RestRserve Add Etag to static path

etag

r

restrserve

使用 Go fiber 的示例