小编Kus*_*tel的帖子

我想检测浏览器宽度。如果太小，则触发 css 中的宽度变化。

基本上，我想将框宽度更改为移动屏幕宽度的 50% 和大于移动屏幕的 20$ 屏幕宽度

以下是我的代码

box(
      title = "KPI Table"
      ,div(style="display:block;width: 20%;float: left;margin: 0 10px;"
          ,selectInput('slice', 'Time View'
                   , c('Day', 'Week', 'Month', 'Quarter', 'Year')
                   , selected = 'Month'))
      , DT::dataTableOutput('KPITab')
      , status = "primary"
      , width = 12
      , collapsible = TRUE)
    )

我想使用 javascript 来检测宽度的变化并将 div 中的值更改为 20% 到 50%。

谢谢

我正在创建我的应用程序,我想隐藏特定的menuItem,它包含取决于用户凭据.我想为管理员/测试人员展示一切,但不是所有用户.我在堆栈溢出中发现了问题,在闪亮的dashbaord中隐藏了一个元素(框/标签),我修改了如下代码

library(shiny)
library(shinydashboard)
library(shinyjs)

ui <- dashboardPage(

dashboardHeader(title = "Set")
,dashboardSidebar(
   sidebarSearchForm(label = "Search...", "searchText", "searchButton"),
  sidebarMenu(
    menuItem("Port", tabName = "P", icon = icon("cog"))
    ,menuItem("Rank", tabName = "Rank", icon = icon("cog"))
    ,menuItem("Mark", tabName = "Mark", icon = icon("bar-chart"))
    ,menuItem("Read", tabName = "Read", icon = icon("file-pdf-o"))
    ,useShinyjs()
    ,menuItem("Port, tabName = "Ocean", icon = icon("heart"))
  )
  ,uiOutput('Super')
  ,uiOutput('AList')
  ,uiOutput('BList')
  ,uiOutput('DList')
  ,uiOutput('SList')
)


,dashboardBody(
....
)
)

server <- shinyServer(function(input, output, session) {
  observeEvent(session$user,{
   if (session$user == "tester") return(NULL)
     hide(id = …

我正在尝试使用网格搜索与日志丢失.以下是我的代码.

df = pd.read_csv(file_name)
df.shape # (146614, 395)
# All features are float32
gbm = GradientBoostingClassifier(max_features="log2")
GSCV = GridSearchCV(gbm, param, scoring=log_loss, n_jobs=2, cv =2, verbose=3)
GSCV.fit(df, y)
clf.grid_scores_

但是,我无法运行代码.在GSCV.fit线上很长一段时间后它给我错误.但是,当我放弃得分= log_loss时它工作正常.

谁能给我建议？

我在 R 中使用 xgb.cv 和 xgboost。但是，它不能并行工作

我的示例代码如下

library(xgboost)
library(parallel)
param <- list("objective" = "reg:logistic"
          , "eval_metric" = "logloss"
          ,"nthread" = 8
          ,"bst:eta" = .025
          ,"bst:max_depth" = 3
          ,"lambda" = 1
          ,"lambda_bias" = 0
          ,"alpha" = .8
          ,"min_child_weight" = 3
          ,"subsample" = .9
          ,"colsample_bytree" = .6)
bst.cv3 = xgb.cv(param=param, data = x, label = y,
             nfold = 3, nrounds=cv.nround, missing = NA
             ,prediction = TRUE)

但是，上面的代码不起作用。我必须做些什么才能使它们平行？

我在 xgboost 网站和 github 上找到了这个

1. https://github.com/dmlc/xgboost/blob/master/doc/build.md#building-on-osx

2. https://github.com/dmlc/xgboost/issues/276

但是，我无法运行

brew install clang-omp

或者

brew install gcc …

我有三项任务合二为一。

任务 A 先运行。如果任务 A 成功，则任务 B 运行。

我有在任务 B 之后运行的任务 C，但它不取决于任务 B 或任务 A 的成功或失败。

无论任务 A 和 B 发生什么情况，任务 C 都需要运行。但是，它需要在任务 A 和 B 完成后运行。

任何的想法 ？

以下是我的 Docker 代码：

FROM python:3.6.2-jessie

## Prepare apt-get:
RUN echo "debconf debconf/frontend select Noninteractive" | debconf-set-selections && \
    apt-get update -qy && \
     apt-get upgrade -qy && \
    apt-get clean autoclean && \
    apt-get install wkhtmltopdf -y && \
    apt-get autoremove -y && \
    apt-get install python3-setuptools -qy &&\
    apt-get install python3-dev -qy && \
    apt-get install python3-pip -qy && \
    apt-get install build-essential -qy && \
    apt-get -y install openssh-client -qy && \
    apt-get clean

RUN pip3 install --upgrade …

试图将文件加载到r(跳过前4行) http://www.cpc.ncep.noaa.gov/data/indices/wksst8110.for

这是固定宽度文件,我不知道如何从文件计算宽度.

有人可以告诉我如何将固定宽度的文件加载到R？

我需要在我的数据框中移动行,不是为了改变数据,而是将第一行移动到第二行,第二行移动到第三行......然后删除最后一行.第一行包含所有NA.我需要在dplyr中做.如果数据框是:

1 2 3 
4 5 6
7 8 9

我想要的数据如下:

NA NA NA
1  2  3 
4  5  6

基本上我需要类似于pandas shift(http://pandas.pydata.org/pandas-docs/stable/generated/pandas.DataFrame.shift.html)中的r

提前致谢

我正在尝试使用networkD3库在R中构建sankey图。

我有以下数据

print(nodes1)

  name
1   as
2  sdf
3  wer
4   xc
5   sd
6   er

print(links)

   source target value
1       0      5   112
2       0      4   848
3       0      4   661
4       0      4    33
5       0      3   291
6       1      5    23
7       1      4   983
8       1      3   859
9       1      3    35
10      2      4   537

因此，当我尝试使用以下代码创建sankeyNetwork时

sankeyNetwork(Links = links1, Nodes = nodes1,
 Source = "source", Target = "target",
 Value = "value", NodeID = "name",
 fontSize= …

我在闪亮的代码如下

DT::renderDataTable({ 
  df()
  , rownames=FALSE
  ,extensions = c('Responsive', 'Buttons')
  , options = list(
    # dom = 'C<"clear">T<"clear">lfrtip'
    # , tableTools=list(sSwfPath = copySWF('www'))
    dom = 'Bfrtip'
    , buttons = c('pageLength'
                  , 'colvis'
                  , 'pdf')
    , orientation ='landscape'
    , lengthMenu = list(c(6, 12, 18, -1), c('6', '12', '18', 'All'))
    , pageLength = 12
    )
  )
}
})

我想横向下载pdf。我应该怎么做。

根据以下链接：https : //datatables.net/reference/button/pdf，我们可以将方向作为景观。但是，我无法做到。

我尝试了以下方法：

DT::renderDataTable({ 
  df()
  , rownames=FALSE
  ,extensions = c('Responsive', 'Buttons')
  , options = list(
    # dom = 'C<"clear">T<"clear">lfrtip'
    # , …