小编Tra*_*acy的帖子

我正在构建一个R闪亮的仪表板,当我使用DT包和renderdatatable()将数据放入表中时.在每列的顶部,我有过滤器,搜索框太窄,无法查看文本并选择一个选项.这是一张图片:

有谁知道增加宽度的方法？

这是我在server.r中的数据表代码的代码:

  output$table <- DT::renderDataTable(DT::datatable({    
    data <- rv$data
    if (input$sour != "All") {
      data <- data[data[,1] == input$sour,]
    }else{data}
    if (input$sour1 != "All") {
      data <-data[data[,2] == input$sour1,]
    }else{data}
    if (input$tran != "All") {
      data <-data[data[,3] == input$tran,]
    }else{data}
  },filter='top'))

这是ui.r中的代码:

 tabItem(tabName = "ResultsTable",
              fluidPage(  
                headerPanel(
                  h1("List", align="center",  style = "font-family: 'Verdana';font-weight: 800; line-height: 1.1;   color: #151515;")),
                # fluidRow(
                #     column(8, DT::dataTableOutput("table",width = "100%"),offset = 2)))),
                #                 # Create a new Row in the UI for selectInputs
                fluidRow(

                  column(4, …

我正在尝试保护我在R中保存的一些数据文件.有没有办法用密码保护R数据文件(.Rdata)？

谢谢

我正在尝试使用forecast.holtwinters函数,当我尝试运行它时:

dftimeseriesforecast <- forecast.HoltWinters(data, h=65)

我收到此错误:

错误:找不到功能"forecast.HoltWinters"

我也试过这个:

 dftimeseriesforecast= forecast::forecast.HoltWinters(data, h=65)

但我收到此错误消息:

错误:'forecast.HoltWinters'不是'namespace:forecast'中的导出对象

我使用以下代码查看预测包中的这个函数列表:

ls("package:forecast")

这会返回:

[1]"%>%""准确度""Acf""arfima""Arima""arima.errors""arimaorder""auto.arima"
[9]"autolayer""baggedETS""bats""bizdays""bld .mbb.bootstrap""BoxCox""BoxCox.lambda""Ccf"
[17]"checkresiduals""croston""CV""CVar""dm.test""dshw""easter""ets"
[25]"findfrequency ""forecast""forecast.ets""fourier""fourierf""gas""geom_forecast""GeomForecast"
[33]"getResponse""ggAcf""ggCcf""gghistogram""gglagchull""gglagplot""ggmonthplot""ggPacf "
[41]"ggseasonplot""ggsubseriesplot""ggtaperedacf""ggtaperedpacf""ggtsdisplay""gold""holt""hw"
[49]"InvBoxCox""is.acf""is.Arima""is.baggedETS"" is.bats""is.constant""is.ets""is.forecast"
[57]"is.mforecast""is.nnetar""is.nnetarmodels""is.splineforecast""is.stlm""ma" "meanf""monthdays"
[65]"msts""na.interp""naive""ndiffs""nnetar""nsdiffs""Pacf""remaining"
[73]"rwf""seasadj""season""seasonaldummy" "seasonaldummyf""seasonplot""ses""sindexf"
[81]"snaive""splinef""StatForecast""stlf""stlm""conea cf""taperedpacf""taylor"
[89]"tbats""tbats.components""thetaf""trendcycle""tsclean""tsCV""tsdisplay""tslm"
[97]"tsoutliers""wineind""woolyrnq"

有谁知道发生了什么？我以前用过这个,没有问题.我正在使用预测版本8.1.

我正在尝试将 R 连接到 Teradata，但不确定RODBC::odbcDriverConnect(). 有一个 teradataR 包，但它仅用于 R 版本 3 及以下版本，我既没有也不想切换到。下面是使 ODBCDriverConnect 工作的输入参数列表。“连接”我认为是最重要的。我需要一个司机的地址，我什至不知道我有没有。这是我最需要帮助的。如何获取 Teradata 驱动程序以连接到 R？我工作中的 IT 不确定如何执行此操作。另外，如果有人知道将 Teradata 连接到 R 的另一种方法（其他一些软件包？），请告诉我。

connection = ""
case
 believeNRows = TRUE
 colQuote, tabQuote = colQuote
interpretDot = TRUE
 DBMSencoding = "",
rows_at_time = 100
 readOnlyOptimize = FALSE

感谢您的帮助！

我正在编写一个闪亮的应用程序，并且运行正常，突然间我收到了两个警告消息。我回到以前运行良好的副本，现在它们显示相同的错误消息，所以我很困惑。我的代码仍在运行，并在闪亮的仪表板的``结果''选项卡上显示了准确的结果，但我想跟踪警告消息。我进行了调试，当我单击仪表板上的选项卡时，第一个警告与rendDataTable消失，第二个警告出现。数据是具有数字和字符的数据帧n X 10。任何帮助将不胜感激。如果我可以提供更多信息，请告诉我。

这是1：

Warning in widgetFunc() :
  renderDataTable ignores ... arguments when expr yields a datatable object; see ?renderDataTable
Warning: Error in cat: argument 1 (type 'environment') cannot be handled by 'cat'
Stack trace (innermost first):
    74: cat
    73: eval
    72: eval
    71: withVisible
    70: evalVis
    69: utils::capture.output
    68: paste
    67: output$ntext1
     1: shiny::runApp

这是2：

Warning in widgetFunc() :
  renderDataTable ignores ... arguments when expr yields a datatable object; see ?renderDataTable

tran_cd=c('I','E','R')
data_source_cd=c('1','2','3','4')
library(shiny)
library(shinydashboard)
library(xlsx)
if (!require("DT")) install.packages('DT') …

我想将字符串转换为时间。我有一个时间字段，其中字符串只有四位数字和一个字母（A 或 P）。数字之间没有冒号，表明它是时间。我想将 12 小时的字符串转换为 24 小时的时间，这样我就可以删除 A 和 P。

这是一个例子：

time = c("1110A", "1120P", "0420P", "0245P")

我正在寻找一个像这样的时间类：

Answer= c('11:10', '23:20', '16:20', '14:45')

任何帮助将不胜感激。

I'm very new to shiny and am having some trouble and have been searching all day, so hopefully someone can help me. Once an action button (actionButton, on UI) is selected by a user, I would like the server script to call a function (evenReactive in server) I wrote (myfunction, see below) that uses the input items from the UI and gets the right parameters I need to run myfunction and produce a n X2 data matrix that will be …