ghoost2010

  •  
  • 2018年4月19日
  • 注册于 2016年5月26日
  • yihui
    恩,我觉得你这里描述查找问题缘由的思路很好。之前我写也有碰到一些问题,和技术人员闲聊(他其实不用R),就告诉我把每一步打印出来看哪里出错【虽然写函数的时候会这样解决问题,不过有时候还是会遗忘这个思路】。非技术人员在查找bug上确实还需要经验积累。
    至于Windows的问题,只能尽量保持编码一致了。我这样的小白也是在这样被教育中不断成长。?

  • 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"
        有谁碰到过类似问题并解决了的嘛,不胜感激。