yihui
恩,我觉得你这里描述查找问题缘由的思路很好。之前我写也有碰到一些问题,和技术人员闲聊(他其实不用R),就告诉我把每一步打印出来看哪里出错【虽然写函数的时候会这样解决问题,不过有时候还是会遗忘这个思路】。非技术人员在查找bug上确实还需要经验积累。
至于Windows的问题,只能尽量保持编码一致了。我这样的小白也是在这样被教育中不断成长。?
dapengde
恩,抱歉我以为是相同的问题,现在已经没问题了。yihui
其实我说不是伸手党主要是怕你觉得伸手党太多,让你心冷,哈哈。我确实喜欢你的博文,不仅仅是技术,主要是你的一些思想。
问题已经解决了,虽然我不知道是因为什么。。从RODBC换成DBI+RMYSQL连接又好了。yihui
首先,非常感谢您的回复。
其次,很喜欢您博客里的一些观点,比如有篇博文《职业羞耻感》。
对linux确实不熟悉,尝试过很多方法后,在这里看到您的答复所以做了次提问。如果可以称为您的粉丝的话,您可以欣慰您的粉丝并不是一个伸手党。
再次感谢您的回复,我会再尝试下其他方法。yihui
您好,我写了一个shiny应用,是使用RODBC读MYSQL数据库,在本地Windows上运行都没有问题,不过放到服务器上会报错,错误是:
Warning: Error in gsub: input string 4 is invalid in this locale
我的服务器系统是:> sessionInfo() R version 3.4.1 (2017-06-30) Platform: x86_64-redhat-linux-gnu (64-bit) Running under: CentOS release 6.8 (Final) Matrix products: default BLAS: /usr/lib64/R/lib/libRblas.so LAPACK: /usr/lib64/R/lib/libRlapack.so locale: [1] LC_CTYPE=zh_CN.utf8 LC_NUMERIC=C [3] LC_TIME=zh_CN.utf8 LC_COLLATE=zh_CN.utf8 [5] LC_MONETARY=zh_CN.utf8 LC_MESSAGES=zh_CN.utf8 [7] LC_PAPER=zh_CN.utf8 LC_NAME=C [9] LC_ADDRESS=C LC_TELEPHONE=C [11] LC_MEASUREMENT=zh_CN.utf8 LC_IDENTIFICATION=C attached base packages: [1] stats graphics grDevices utils datasets methods base loaded via a namespace (and not attached): [1] compiler_3.4.1
我在我写的shinyAPP里加上您下面这段话,不过仍然是报错:
options(shiny.usecairo = FALSE) font_home <- function(path = '') file.path('~', '.fonts', path) if (Sys.info()[['sysname']] == 'Linux') { dir.create(font_home()) file.copy('wqy-zenhei.ttc', font_home()) system2('fc-cache', paste('-f', font_home())) }
期待您的答复~
- 各位好,写了一段代码,用来下载excel文件,可是每次点开生成的文件都带有双引号,比如“cars.xlsx”,把双引号去掉后,再在保存地方查找,却什么都没有下载下来。
有谁了解是什么情况吗?
library(shiny)
library(shinydashboard)
library(XLConnect)
# Define UI for application that draws a histogram
ui <- dashboardPage(
dashboardHeader(title = "excel download"),
dashboardSidebar(downloadLink("downloadData", "Download")),
dashboardBody(),
skin = "purple"
)
# Define server logic required to draw a histogram
server <- function(input, output) {
data1 <- mtcars
output$downloadData <- downloadHandler(
filename = function(){"mtcars.xlsx"},
content = function(file) {
fname <- paste(file,"xlsx",sep=".")
wb <- loadWorkbook(fname,create = TRUE)
createSheet(wb,"cars")
writeWorksheet(wb,data = data1,sheet = "cars")
saveWorkbook(wb)
file.rename(fname,file)
},
contentType="application/xlsx"
)
}
# Run the application
shinyApp(ui = ui, server = server) - 您好,
根据官网安装Rexcel,出现了下面的错误提示。而且点开excel能看到Rexcel在加载项里,不过没有出现在其他地方。
"No R server configured. Please set Rserver to work with RExcel"
有谁碰到过类似问题并解决了的嘛,不胜感激。