这次,我尝试从在我的uBuntu 16.04上构建的闪亮服务器环境中运行闪亮的应用程序。 应用程序代码如下:
library(shiny)
library(reshape2)
library(ggplot2)
library(dplyr)
library(grid)
library(gridExtra)
library(RODBC)
variance <- function(x) var(x)*(length(x)-1)/length(x)
source("./src/ETL_DB_conn.R", encoding = "UTF-8")
ketten_mst<-read.csv("data/欠点マスタ_ECPU.csv")
Seisan_Stop<-read.csv("data/成形作業日報_不良履歴_ストップ抜粋.csv")
SeikeiDaily<-sqlQuery(conn,"select * from kashima.IOT_T_SeikeiDailyReport_PartNo_Detail;")
ServiceTank<-sqlQuery(conn,"select * from kashima.IOT_T_ServiceTank;")
SirakijiBad<-sqlQuery(conn,"select * from dbo.ECPU_TH_SirakijiBadDtl;")
SeihinBad<-sqlQuery(conn,"select * from dbo.ECPU_TH_SeihinBadDtl;")
Seikei_huryo<-sqlQuery(conn,"select * from kashima.IOT_T_SeikeiDailyReport_MoldingDefect;")
ServiceTank<-ServiceTank[,c(1,2,4,5,6,7,8,9,10,11,12,13)]
**ServiceTank$測定日<-as.POSIXct(ServiceTank$測定日)**
SeikeiDaily<-SeikeiDaily[,c(2,3,4,7,8,9,10,11,12,13)]
SeikeiDaily$成形日<-as.POSIXct(SeikeiDaily$成形日)
SeikeiDaily$タンク<-ifelse(SeikeiDaily$ライン==2,"Z2","Z1")
此代码可以在我的本地计算机上完美运行,但是当我在Shiny-server上发布它时 它给出了这个错误:
不知道如何将“ ServiceTank $测定日”转换为“ POSIXct”类
这是ServiceTank $测定日的样子
測定日
2016/04/02
2016/04/04
2016/04/05
2016/04/06
2016/04/08
2016/04/09
2016/04/11
2016/04/12
2016/04/13
2016/04/15
2016/04/16
2016/04/18
2016/04/19
2016/04/20
我的问题是:
最诚挚的问候
答案 0 :(得分:0)
DF <- data.frame(date = Sys.Date())
as.POSIXct(DF) # gives your error
DF$date <- as.POSIXct(DF$date) # works