首先，让我们分别解决两个问题：

1. 部署Shiny应用程序会破坏数据透视表：

在部署Shiny应用程序之前，需要确保数据透视表相关的包已经被正确加载。具体来说，需要加载dplyr和tidyverse包。可以在Shiny应用程序的server.R文件中添加以下代码：

library(dplyr)
library(tidyverse)

这样就可以确保在Shiny应用程序中使用数据透视表的功能。

2. 无法为非vctrs类型指定原型：

这个问题通常是由于尝试将非vctrs类型的对象赋值给vctrs类型的对象造成的。为了解决这个问题，可以将非vctrs类型的对象转换为vctrs类型的对象，然后再赋值。

以下是一个示例代码：

# 创建一个非vctrs类型的对象
non_vctrs <- list(a = 1, b = 2, c = 3)

# 将非vctrs类型的对象转换为vctrs类型的对象
vctrs <- as.list(non_vctrs)

# 现在可以为vctrs类型的对象指定原型
vctrs <- structure(vctrs, class = "vctrs")

# 现在可以将vctrs类型的对象赋值给其他变量
new_variable <- vctrs

通过将非vctrs类型的对象转换为vctrs类型的对象，然后再赋值，可以解决无法为非vctrs类型指定原型的问题。