library(readxl)
df <- read_excel("data-raw/计提数据模版.xlsx",
col_types = c("text", "text", "text",
"text", "text", "numeric", "numeric",
"numeric", "text", "text", "text",
"text", "text", "text", "numeric",
"numeric", "text", "text", "text",
"numeric", "date", "numeric"))
View(df)
df = as.data.frame(df)
class(df$日期)
df2 = tsdo::na_standard(df)
View(df2)
df2
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.