要在Web上部署Shiny应用程序而不使用任何服务器，可以使用R包{httpuv}和R包{shiny}的结合来实现。

以下是一个示例代码，展示如何使用{httpuv}和{shiny}来部署Shiny应用程序：

library(httpuv)
library(shiny)

# 定义Shiny应用程序
ui <- fluidPage(
  titlePanel("在Web上部署Shiny应用程序"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("num", "选择一个数字:", min = 1, max = 100, value = 50)
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

server <- function(input, output) {
  output$plot <- renderPlot({
    hist(rnorm(input$num))
  })
}

# 创建HTTP服务器
http_server <- function(app) {
  httpuv::startServer("0.0.0.0", 8080, list(call = httpuv:::httpuv_service, app = app))
}

# 启动Shiny应用程序
shinyApp(ui, server)

# 部署Shiny应用程序到Web
http_server(list(
  call = httpuv:::httpuv_app,
  app = list(ui = ui, server = server)
))

请注意，这段代码将Shiny应用程序部署到本地的端口8080上。要在Web上访问应用程序，您需要将本地IP地址和端口映射到公共IP地址和端口。您可以使用网络工具，如端口转发或反向代理，来实现这一点。

这是一个简单的示例，可以帮助您了解如何使用{httpuv}和{shiny}在Web上部署Shiny应用程序。然而，如果您希望在生产环境中部署Shiny应用程序，建议使用专门的Shiny服务器（如Shiny Server或shinyapps.io），以获得更好的性能和可靠性。