我是R的新手,在广泛研究了这个错误之后,我仍然无法找到它的解决方案.这是代码.我检查了我的工作目录,并确保文件在正确的目录中.欣赏它.谢谢
pollutantmean <- function(directory, pollutant = "nitrate", id= 1:332)
{ if(grep("specdata",directory) ==1)
{
directory <- ("./specdata")
}
mean_polldata <- c()
specdatafiles <- as.character(list.files(directory))
specdatapaths <- paste(directory, specdatafiles, sep="")
for(i in id)
{
curr_file <- read.csv(specdatapaths[i], header=T, sep=",")
head(curr_file)
pollutant
remove_na <- curr_file[!is.na(curr_file[, pollutant]), pollutant]
mean_polldata <- c(mean_polldata, remove_na)
}
{
mean_results <- mean(mean_polldata)
return(round(mean_results, 3))
}
}
我得到的错误如下:
Error in file(file, "rt") : cannot open the connection
file(file, "rt")
read.table(file = file, header = header, sep = sep, quote = …旋转渲染球体时出现了一个奇怪的问题:动画似乎动摇了,我不知道这个问题来自哪里.
这是此链接上的示例
和渲染功能:
function render() {
controls.update();
requestAnimationFrame(render);
// For camera rotation : parametric parameter
timer = Date.now()*0.0001;
// Coordinates of camera
coordCamera.set(radiusCamera*Math.cos(timer), radiusCamera*Math.sin(timer), 0);
// Rotate camera function
rotateCamera();
// Rendering
renderer.render(scene, camera);
}
用rotateCamera和computeRotation功能:
function computeRotation (objectRotation, coordObject) {
// Apply rotation matrix
var rotationAll = new THREE.Matrix4();
var rotationX = new THREE.Matrix4().makeRotationX(objectRotation.rotation.x);
var rotationY = new THREE.Matrix4().makeRotationY(objectRotation.rotation.y);
var rotationZ = new THREE.Matrix4().makeRotationZ(objectRotation.rotation.z);
rotationAll.multiplyMatrices(rotationX, rotationY);
rotationAll.multiply(rotationZ);
// Compute world coordinates
coordObject.applyMatrix4(rotationAll);
} …我正在使用Request Tracker 4.0中的一些Perl代码,并且遇到了一个错误,即票据请求者的消息被切断.我是Perl的新手,我已经用正则表达式完成了一些工作,但即使阅读了很多,我也遇到了一些问题.
我已将问题缩小到这行代码:
$content =~ s/\n-- \n.*?$//s
我不完全理解它在做什么,并希望得到更好的解释.
我知道这s/ /与模式匹配\n-- \n.*?$并且没有任何替代.
我不明白是什么.*?$.这是我的基本理解:
. 是除\n之外的任何字符 * 是前一个字符的0或更多倍? 是前一个字符的0或1倍$ 是字符串的结尾 然后,根据我的理解,决赛s使.比赛成为新线
所以,粗略地说,我们正在替换以...开头的任何文本\n-- \n- 这行代码导致了一些可疑的行为,如果有人可以解释这里发生了什么,我会很乐意解决这个问题.
有人可以解释这条线在做什么吗？它只是删除了第一个之后的所有文本\n-- \n还是有更多文本
？
冗长的部分/现实生活中的问题(你不需要阅读本文来回答这个问题)
我的确切问题是它正在删除签名处的引用内容.
因此,如果来自客户的电子邮件A说:
订单ABCD怎么回事？
- 一些客户
工作人员回复说(注意失去客户的签名)
它今天发货
订单ABCD怎么回事？
客户回复
我没有得到它,它没有发货!
- 一些客户它今天发货
订单ABCD怎么回事？
当我们回复时,他们的信息会切断 - 这会杀死所有上下文.
它今天发货,追踪号码12345
我没有得到它,它没有发货!
并导致更多的工作解释它是什么顺序,等等.
我正在尝试创建一个脚本来批量标记一组用户在 RT 中具有特权。我在 RT wiki 上找到了一个脚本，用于将用户添加到组并赋予他们特权状态，然后删除了与添加到组有关的部分。我剩下的 perl 脚本是：
#!/usr/bin/perl
# Usage: ./rt_set_privileged.pl <username>
use strict;
use lib "/var/www/ticket.ourcompany.com/lib";
use RT;
use RT::User;
use RT::Interface::CLI;
RT::LoadConfig();
RT::Init();
# Create RT User Object
my $user = new RT::User($RT::SystemUser);
# Instantiate the user object with the user passed as parameter
my $usertoadd = $ARGV[0];
$user->Load( $usertoadd );
# Set the privileged flag (1=privileged, 0=unprivileged)
$user->SetPrivileged(1);
exit 1
我有一个文件中的用户，每行一个用户名。我目前还不了解 perl，所以我尝试创建一个小 bash 脚本来遍历文件并按名称运行 perl 脚本一次。现在的 Bash 脚本：
#!/bin/bash
touch commands.sh
cat usernames.txt | while read …我正在RT(http://bestpractical.com/rt)做一些模板编程,它使用Perl.不幸的是,我偶尔只会和Perl讨价还价.
我正在尝试调用以下开头的子过程:
sub PrepareEmailUsingTemplate {
my %args = (
Template => '',
Arguments => {},
@_
);
由于这是lib的一部分,我无法改变它.
我正在做的电话是:
my ($template, $msg) = RT::Interface::Email->PrepareEmailUsingTemplate(
Template => 'CCReplyFirstMessage' );
return (0, $msg) unless $template;
而我得到"在/opt/rt4/sbin/../lib/RT/Interface/Email.pm线552哈希分配的元素奇数(/opt/rt4/sbin/../lib/RT /Interface/Email.pm:552),with是sub的第一行.
我知道我在传递参数方面做得很糟糕.我该怎么办呢？
我正在尝试使用REST API在RT中创建票证.到目前为止我可以搜索门票:
$servername="tickets.somedomain"
$u="user=someuser"
$p="pass=P@55w0rd"
$q="search/ticket?query=(Queue='Queue_name')"
$uri="http://" + $servername + "/REST/1.0/" + $q + "&" + $u + "&" + $p
$RT=Invoke-WebRequest -Uri $uri -SessionVariable sess
$rt.Content
但创造:
$servername = 'http://tickets.somedomain/REST/1.0/ticket/new'
$postParams = @{
user = 'someuser';
pass = 'P@55w0rd';
content = @"
Queue: Queue_name
id: ticket/new
Requestor: some_user_email
Subject: TEST
Status: New
Text: blahblah
"@;
}
$RT = Invoke-WebRequest -Uri $servername -Method Post -Body $postParams
$RT.content
导致:
RT/3.8.8 200 Ok
# Could not create ticket.
# Could not create …