小编Jaa*_*aap的帖子
R闪亮的DataTables ColVis行为
我有一个带有DataTables的RStudio Shiny服务器页面,我在下面的示例中使用了TableTools和ColReorder,但是ColVis(Show/hide columns按钮)的行为方式与http://datatables.net/extensions/colvis/中的示例相同:
单击Show/hide columns按钮时,列表会与下面表格中的值混淆,我无法通过再次单击按钮或单击页面中的任何其他位置使列表消失(同样,数据表页面中的示例表现正常).
另外,我对使用sDom表中的不同元素进行排序感到困惑.我希望Show/hide columns按钮位于右上角而不是左上角.我也不确定如何订购sDom表格中的不同元素,以便在更改列的顺序后,保存为CSV/Excel或隐藏某些列将为我提供新的表格布局而不是原始的布局.
有任何想法吗？
ui.R
shinyUI(pageWithSidebar(
h1('Diamonds DataTable with TableTools'),
tagList(
singleton(tags$head(tags$script(src='//cdnjs.cloudflare.com/ajax/libs/datatables/1.9.4/jquery.dataTables.min.js',type='text/javascript'))),
singleton(tags$head(tags$script(src='//cdnjs.cloudflare.com/ajax/libs/datatables-tabletools/2.1.5/js/TableTools.min.js',type='text/javascript'))),
singleton(tags$head(tags$script(src='//cdn.datatables.net/colreorder/1.1.1/js/dataTables.colReorder.min.js',type='text/javascript'))),
singleton(tags$head(tags$script(src='//cdn.datatables.net/colvis/1.1.0/js/dataTables.colVis.min.js',type='text/javascript'))),
singleton(tags$head(tags$script(src='//cdnjs.cloudflare.com/ajax/libs/datatables-tabletools/2.1.5/js/ZeroClipboard.min.js',type='text/javascript'))),
singleton(tags$head(tags$link(href='//cdnjs.cloudflare.com/ajax/libs/datatables-tabletools/2.1.5/css/TableTools.min.css',rel='stylesheet',type='text/css'))),
singleton(tags$script(HTML("if (window.innerHeight < 400) alert('Screen too small');")))
),
dataTableOutput("mytable")
)
)
server.R
shinyServer(function(input, output, session) {
output$mytable = renderDataTable({
diamonds[,1:6]
}, options = list(
"sDom" = 'RMDCT<"clear">lfrtip',
"oTableTools" = list(
"sSwfPath" = "//cdnjs.cloudflare.com/ajax/libs/datatables-tabletools/2.1.5/swf/copy_csv_xls.swf",
"aButtons" = list(
"copy",
"print",
list("sExtends" = "collection",
"sButtonText" = "Save",
"aButtons" = c("csv","xls") …推荐指数
解决办法
查看次数
从字符串中删除URL
我有一个字符串向量myStrings- 在R中看起来像:
[1] download file from `http://example.com`
[2] this is the link to my website `another url`
[3] go to `another url` from more info.
哪里another url是有效的http网址,但stackoverflow不会让我插入多个网址,这就是我写作的原因another url.我想删除所有的网址myStrings,如下所示:
[1] download file from
[2] this is the link to my website
[3] go to from more info.
我在stringr包中尝试了很多功能,但没有任何作用.
推荐指数
解决办法
查看次数
如何向TYPO3 Extension添加文档
是否有一步一步的手册如何将文档添加到TYPO3扩展？我在存储库中添加了两个扩展,但我也想添加一些文档.在TYPO3存储库的早期阶段,这很容易 - 据我记得,必须将OpenOffice文档添加到扩展中...我发现这个"howto"
我正在使用macOS Sierra,我安装了很多东西:Xcode,MacPorts,Sphinx,......
我做了所有这些pip安装
但是在github.com/marble/typo3-docs-typo3-org-resources的文档目录的_make目录中调用make给了我以下内容
错误:
sphinx-build -b html -d build/doctrees -c.-a -E -w ./_not_versioned/warnings.txt .. build/html运行Sphinx v1.5.1
发生异常:文件"conf.py",第24行,导入t3SphinxThemeRtd ImportError:没有名为t3SphinxThemeRtd的模块
如果要向开发人员报告问题,则完整的回溯已保存在/tmp/sphinx-err-bGi8t6.log中.如果是用户错误,请另外报告,以便下次可以提供更好的错误消息.可以通过https://github.com/sphinx-doc/sphinx/issues在跟踪器中提交错误报告 .谢谢!
所以虽然我用pip命令添加了模块t3SphinxThemeRtd但是找不到它？
是否有一种简单的方法来添加文档？我认为这个复杂的程序会阻止许多开发人员在他们的扩展中添加文档!
推荐指数
解决办法
查看次数
如何减少DT数据表中的行高
我希望能够在渲染数据表时获得"更细"的行DT(即减小该高度)
options(digits.secs=6)
library(data.table)
d = data.table(x = 1:10,time = as.POSIXct('2015-03-23 12:00:00.123'))
library(DT)
datatable(d)
推荐指数
解决办法
查看次数
什么时候使用 rlang::ensym() 而不是 rlang::sym()？
我可以从文档中看到rlang::enquo()和rlang::quo()在不同的上下文中使用。因此，我rlang::enysm()最近在函数声明中使用了（见下文）。然而，包裹在另一个 SE 函数调用中，我得到了一个意外错误，我猜这与惰性求值有关（如果我force(x)在 中，它就会消失f_enysm()）。但似乎我也可以通过简单地使用sym(x)而不是ensym(x)因为x是一个不传达任何关于环境的信息（而不是quosures）的字符串来解决这个问题。
那安全吗？
如果是，我不知道什么时候应该更喜欢ensym()，sym并且建议的用途似乎与quo()/ enquo()、expr()/enexpr()等使用的术语不一致。
library(rlang)
f_ensym <- function(data, x, fun) {
x <- fun(x)
head(dplyr::arrange(data, !!x))
}
f_ensym(mtcars, "cyl", sym)
#> mpg cyl disp hp drat wt qsec vs am gear carb
#> 1 22.8 4 108.0 93 3.85 2.320 18.61 1 1 4 1
#> 2 24.4 4 146.7 …推荐指数
解决办法
查看次数
如何按组（ID）复制最后一行？
我有一个随着时间推移接触表面的data.frame。我只想为每个AcvitivityID附加最后一行的副本：
head(movsdf.rbind)
ActivityID CareType HCWType Orientation Surface Date Time Dev.Date.Time SurfaceCategories
1 01 IV RN01 leftFacing AlcOutside 2019-08-03 11:08:01 2019-08-03 11:08:01 HygieneArea
2 01 IV RN01 leftFacing In 2019-08-03 11:08:12 2019-08-03 11:08:12 In
3 01 IV RN01 leftFacing Door 2019-08-03 11:08:12 2019-08-03 11:08:12 FarPatient
4 02 IV RN01 leftFacing Door 2019-08-03 11:08:18 2019-08-03 11:08:18 FarPatient
5 02 IV RN01 leftFacing Other 2019-08-03 11:08:22 2019-08-03 11:08:22 FarPatient
6 03 IV RN01 leftFacing Table 2019-08-03 11:10:26 2019-08-03 11:10:26 NearPatient
示例数据：
movsdf.rbind<-data.frame(ActivityID=rep(1:4, each=10),Surface=rep(c("In","Table","Out"),each=10)) …推荐指数
解决办法
查看次数
如何转换字符串末尾有AM/PM的时间戳？
我正在尝试将此时间戳转换为POSIXct
t1 <- c("19-Jun-13 06.00.00.00 PM")
如果我这样做:
t1 <- as.POSIXct(t1, format="%d-%b-%y %H:%M:%S")
这会转换这个时间戳吗？那是否最终考虑了AM/PM？
推荐指数
解决办法
查看次数
如何使用带有公式的dcast.data.table作为字符串
我想使用强制转换为data.table,其公式名称为列字符串
我的桌子:
c1 c2 c3
1 A 1
1 B 2
1 C 3
2 A1 1
2 B1 2
2 C1 3
我想得到结果:
c1 1 2 3
1 A B C
2 A1 B1 C1
我可以用命令做到这一点
dcast.data.table(dt, c1 ~ c3, value.var = "c2")
但我想在一个函数中运行dcast,该函数具有c1列名称的参数作为字符串.例如
f1 <- function(d, col_name1, col_name2, col_name3) {
dcast.data.table(d, col_name1 ~ col_name3, value.var = col_name2)
}
所以我打电话
f1(dt, "c1", "c2", "c3")
希望有人可以帮忙!
推荐指数
解决办法
查看次数
在R中的glmnet图中的曲线上添加标签
我正在使用glmnet包从mtcars数据集获取以下图表(其他变量的mpg回归):
library(glmnet)
fit = glmnet(as.matrix(mtcars[-1]), mtcars[,1])
plot(fit, xvar='lambda')
如何在每条曲线的开头或最大y点(远离x轴的最大值)处为每条曲线添加变量名称？我尝试过,我可以像往常一样添加图例但不是每条曲线或开头的标签.谢谢你的帮助.
推荐指数
解决办法
查看次数
在ggplot2中图例和图例上方的图例下方绘制图例
我有一个数据帧df:
structure(list(y = c(2268.14043972082, 2147.62290922552, 2269.1387550775,
2247.31983098201, 1903.39138268307, 2174.78291538358, 2359.51909126411,
2488.39004804939, 212.851575751527, 461.398994384333, 567.150629704352,
781.775113821961, 918.303706148872, 1107.37695799186, 1160.80594193377,
1412.61328924168, 1689.48879626486, 260.737164468854, 306.72700499362,
283.410379620422, 366.813913489692, 387.570173754128, 388.602676983443,
477.858510450125, 128.198042456082, 535.519377609133, 1028.8780498564,
1098.54431357711, 1265.26965941035, 1129.58344809909, 820.922447928053,
749.343583476846, 779.678206156474, 646.575242339517, 733.953282899613,
461.156280127354, 906.813018662913, 798.186995701282, 831.365377249207,
764.519073183124, 672.076289062505, 669.879217186302, 1341.47673353751,
1401.44881976186, 1640.27575962036), P = c(1750.51986303926,
1614.11541634798, 951.847023338079, 1119.3682884872, 1112.38984390156,
1270.65773075982, 1234.72262170166, 1338.46096616983, 1198.95775346458,
1136.69287367165, 1265.46480803983, 1364.70149818063, 1112.37006707489,
1346.49240261316, 1740.56677791104, 1410.99217295647, 1693.18871380948,
901.760176040232, 763.971046562772, 994.8699095021, 972.755147593882,
1011.41669411398, 643.705302958842, 537.54384616157, 591.212003320456,
464.405641604215, 0, 0, …推荐指数
解决办法
查看次数